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
Debugging GC issue.
[scheme.forth.jl.git]
/
src
/
scheme.4th
diff --git
a/src/scheme.4th
b/src/scheme.4th
index
af4157f
..
d6dccd1
100644
(file)
--- a/
src/scheme.4th
+++ b/
src/scheme.4th
@@
-2018,7
+2018,9
@@
variable gc-stack-depth
;
:noname
;
:noname
- \ ." GC! "
+ ." GC! "
+
+ trace
gc-unmark
gc-unmark
@@
-2036,7
+2038,7
@@
variable gc-stack-depth
gc-sweep
gc-sweep
-
\
." (" gc-count-marked . ." pairs marked as used.)" cr
+ ." (" gc-count-marked . ." pairs marked as used.)" cr
; is collect-garbage
\ }}}
; is collect-garbage
\ }}}
@@
-2051,8
+2053,14
@@
variable gc-stack-depth
ok-symbol ( port res )
begin
ok-symbol ( port res )
begin
+ \ DEBUG
+ bold fg blue ." READ from " 2over drop . ." ==> " reset-term
+
2over read-port ( port res obj )
2over read-port ( port res obj )
+ \ DEBUG
+ 2dup print cr
+
2dup EOF character-type objeq? if
2drop 2swap close-port
exit
2dup EOF character-type objeq? if
2drop 2swap close-port
exit
@@
-2101,7
+2109,7
@@
variable gc-stack-depth
enable-gc
\ Display welcome message
enable-gc
\ Display welcome message
- welcome-symbol nil cons global-env obj@ eval 2drop
+
\
welcome-symbol nil cons global-env obj@ eval 2drop
begin
['] repl-body catch
begin
['] repl-body catch