shithub: sl

Info  •  Files  •  Log  •  Branches

system: add arg-error and type-error as funcs

--- a/src/system.sl

+++ b/src/system.sl

@@ -840,6 +840,12 @@

 (def (error . args)

   (raise (cons 'error args)))

+(def (arg-error . args)

+  (raise (cons 'arg-error args)))

+

+(def (type-error . args)

+  (raise (cons 'type-error args)))

+

 (defmacro (throw tag value)

   `(raise (list 'thrown-value ,tag ,value)))