diff options
Diffstat (limited to 'src/interp/metalex.lisp.pamphlet')
| -rw-r--r-- | src/interp/metalex.lisp.pamphlet | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/interp/metalex.lisp.pamphlet b/src/interp/metalex.lisp.pamphlet index d0b6554b..32fa639e 100644 --- a/src/interp/metalex.lisp.pamphlet +++ b/src/interp/metalex.lisp.pamphlet @@ -274,6 +274,8 @@ special character be the atom whose print name is the character itself." (defun print-rule (x) (print x out-stream) (format out-stream "~%~%")) ; *** 5. META Error Handling + +(defparameter $num_of_meta_errors 0) (defun meta-meta-error-handler (&optional (wanted nil) (parsing nil)) "Print syntax error indication, underline character, scrub line." |