diff options
Diffstat (limited to 'src/interp/bootlex.lisp')
-rw-r--r-- | src/interp/bootlex.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp index 2032c0c8..31022c0a 100644 --- a/src/interp/bootlex.lisp +++ b/src/interp/bootlex.lisp @@ -319,7 +319,7 @@ or the chracters ?, !, ' or %" ;; digits forming that integer token. (defun get-integer-in-radix (buf r) (unless (> r 1) - (meta-syntax-error)) + (spad_syntax_error)) (let ((mark (1+ (size buf)))) (tagbody lp (suffix (current-char) buf) @@ -327,7 +327,7 @@ or the chracters ?, !, ' or %" (dig (|rdigit?| nxt))) (when dig (unless (< dig r) - (meta-syntax-error)) + (spad_syntax_error)) (advance-char) (go lp)))) (parse-integer buf :start mark :radix r))) |