* Added $collect-key primitive that gets/sets the collect-key field

of pcb.
2007-08-30 22:02:25 -04:00 · 2007-08-30 22:02:25 -04:00 · 6d1578eef5
parent e20576a444
commit 6d1578eef5
2 changed files with 4 additions and 0 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/pass-specify-rep-primops.ss
+++ b/src/pass-specify-rep-primops.ss
@ -144,6 +144,10 @@
  [(P) (K #t)]
  [(E) (nop)])

+(define-primop $collect-key unsafe
+  [(V) (prm 'mref pcr (K 48))]
+  [(E x) (prm 'mset pcr (K 48) (T x))])
+
 (define-primop $memq safe
  [(P x ls)
   (record-case ls