pad swap load
; make-primitive load
-' read make-primitive read
+:noname ( args -- obj )
+ 0 ensure-arg-count
+ read
+; make-primitive read
defer display
:noname ( args -- none )
apply
; make-primitive apply
+
+( ==== Error System ==== )
+
+:noname ( args -- result )
+ bold fg red
+
+ nil? if
+ ." Error."
+ else
+ ." Error: " car display
+ then
+
+ reset-term
+
+ recoverable-exception throw
+; make-primitive error