conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* deleting old list-based set representation.

This commit is contained in:
Abdulaziz Ghuloum 2007-03-10 21:01:41 -05:00
parent fa94d2f6a1
commit 3cb18c56e9
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/libaltcogen.ss
View File

@ -1899,7 +1899,7 @@
(or (ormap frm-conf (set->list fs)) (or (ormap frm-conf (set->list fs))
(ormap var-conf (set->list vs)))) (ormap var-conf (set->list vs))))
(define (assign x) (define (assign x)
(let (#;[x (vector-ref varvec xi)]) (let ()
(define (assign-any) (define (assign-any)
(let ([frms (var-frm-conf x)] (let ([frms (var-frm-conf x)]
[vars (var-var-conf x)]) [vars (var-var-conf x)])