`error'
-------

error(MESSAGE)
     :: $@%W%m%0%i%`Cf$G6/@)E*$K%(%i!<$rH/@8$5$;$k(J.

MESSAGE
     $@J8;zNs(J

   * $@0lHL$K(J, $@0z?t$N4V0c$$$J$I(J, $@B39TIT2DG=$J%(%i!<$,AH$_9~$_H!?t$K$*$$(J
     $@$FH/@8$7$?;~(J, $@%H%C%W%l%Y%k$KLa$kA0$K(J, $@2DG=$J$i$P$=$N%(%i!<$N;~E@(J
     $@$G%G%P%C%0%b!<%I$KF~$k(J. `error()' $@$O(J, $@%f!<%6H!?t$NFbIt$G$3$NF0:n(J
     $@$HF1MM$NF0:n$r9T$o$;$k$?$a$NH!?t$G$"$k(J.
   * $@0z?t$O(J, `error()' $@$,8F$S=P$5$l$k:]$KI=<($5$l$k%a%C%;!<%8$G(J, $@J8;z(J
     $@Ns$G$"$k(J.
   * $@%f!<%6H!?t$K$*$$$F(J, $@JQ?t$r%A%'%C%/$7$F(J, $@$"$jF@$J$$CM$N>l9g$K(J 
     `error()'$@$r8F$S=P$9$h$&$K$7$F$*$1$P(J, $@$=$N;~E@$G<+F0E*$K%G%P%C%0%b!<(J
     $@%I$KF~$l$k(J.

     % cat mod3
     def mod3(A) {
             if ( type(A) >= 2 )
                     error("invalid argument");
             else
                     return A % 3;
     }
     end$
     % asir
     [0] load("mod3");
     1
     [3] mod3(5);
     2
     [4] mod3(x);
     invalid argument
     stopped in mod3 at line 3 in file "./mod3"
     3                       error("invalid argument");
     (debug) print A
     A = x
     (debug) quit
     return to toplevel
     [4] 

$@;2>H(J
     `debug'

