The Lambda Lab
/
projects
/
scheme.forth.jl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added forth-level exception handling to repl.
[scheme.forth.jl.git]
/
scheme-primitives.4th
diff --git
a/scheme-primitives.4th
b/scheme-primitives.4th
index
e5a7dba
..
97c098f
100644
(file)
--- a/
scheme-primitives.4th
+++ b/
scheme-primitives.4th
@@
-358,7
+358,7
@@
defer display
:noname ( args -- none )
2dup 1 ensure-arg-count
:noname ( args -- none )
2dup 1 ensure-arg-count
- car print
cr
+ car print
none
; make-primitive write
none
; make-primitive write
@@
-388,7
+388,7
@@
defer display
2dup 1 ensure-arg-count
car string-type ensure-arg-type
2dup 1 ensure-arg-count
car string-type ensure-arg-type
- (printstring)
cr
+ (printstring)
none
; make-primitive display-string
none
; make-primitive display-string
@@
-397,7
+397,7
@@
defer display
2dup 1 ensure-arg-count
car character-type ensure-arg-type
2dup 1 ensure-arg-count
car character-type ensure-arg-type
- displaychar
cr
+ displaychar
none
; make-primitive display-character
none
; make-primitive display-character
@@
-406,7
+406,7
@@
defer display
2dup 1 ensure-arg-count
car
2dup 1 ensure-arg-count
car
- display
cr
+ display
none
; make-primitive display
none
; make-primitive display