suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't copy propagate uninterned symbols in cp0 and cptypes

Browse Source 
original commit: 9758171949520e9f97e54f1140ae14083b168a8e
This commit is contained in:
Gustavo Massaccesi 2019-12-07 16:44:29 -03:00
parent 50e529364d
commit 19819ef4bf
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s/cp0.ss
View File

@ -858,7 +858,7 @@
(lambda (obj)
; okay to copy obj if (eq? (faslin (faslout x)) x) => #t or (in the case of numbers and characters)
; the value of (eq? x x) is unspecified
(or (symbol? obj)
(or (and (symbol? obj) (not (uninterned-symbol? obj)))
(number? obj)
(char? obj)
(boolean? obj)

2
s/cptypes.ss
View File

@ -317,7 +317,7 @@ Notes:
(lambda (obj)
; okay to copy obj if (eq? (faslin (faslout x)) x) => #t or (in the case of numbers and characters)
; the value of (eq? x x) is unspecified
(or (symbol? obj)
(or (and (symbol? obj) (not (uninterned-symbol? obj)))
(number? obj)
(char? obj)
(boolean? obj)