* The compiler now recognizes the (current-primitive-locations)

and generates appropriate code for symbols in the alist.

BUGS

@@ -1,5 +1,9 @@
 * FIX: Error in generate-code: BUG: unhandles single rv.
 
+* In libcompile.ss:
+  If you move the (initialize-system) call to the very bottom of the
+  library, the system crashes on startup.  
+
 * Investigate what happens when an interrupt occurs during a write.
 
    > (define (f) (write (gensym)) (newline) (f))
@@ -12,3 +16,4 @@
    >
 
   Two displays occurred at the end.
+

src/libcompile.ss

@@ -3220,9 +3220,9 @@
 (define (primref-loc op)
   (unless (symbol? op) (error 'primref-loc "not a symbol ~s" op))
   (cond
-    ;[(assq op (current-primitive-locations)) =>
-    ; (lambda (x)
-    ;   (mem (fx- disp-symbol-value symbol-tag) (obj (cdr x))))]
+    [(assq op (current-primitive-locations)) =>
+     (lambda (x)
+       (mem (fx- disp-symbol-value symbol-tag) (obj (cdr x))))]
     [else
      (mem (fx- disp-symbol-system-value symbol-tag)
           (obj op))]))