diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 7 | ||||
| -rw-r--r-- | share/txr/stdlib/error.tl | 7 |
2 files changed, 7 insertions, 7 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index e56287c7..b0942a15 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1294,13 +1294,6 @@ (mac-param-bind form (op name def) form ^(sys:rt-defsymacro ',name ',def))) -(defun sys:bind-mac-error (ctx-form params obj too-few-p) - (if (atom obj) - (compile-error ctx-form "extra atom ~s not matched by params ~s" - obj params) - (compile-error ctx-form "object ~s too ~a for params ~s" - obj (if too-few-p "short" "long") params))) - (defun usr:compile-toplevel (exp) (let ((co (new compiler)) (as (new assembler))) diff --git a/share/txr/stdlib/error.tl b/share/txr/stdlib/error.tl index 8376535a..1e9ec191 100644 --- a/share/txr/stdlib/error.tl +++ b/share/txr/stdlib/error.tl @@ -47,3 +47,10 @@ (catch (throw 'defr-warning (fmt `@loc~s: @fmt` name . args) tag) (continue ())))) + +(defun sys:bind-mac-error (ctx-form params obj too-few-p) + (if (atom obj) + (compile-error ctx-form "extra atom ~s not matched by params ~s" + obj params) + (compile-error ctx-form "object ~s too ~a for params ~s" + obj (if too-few-p "short" "long") params))) |