* If I add one data, the program crashes. This commit is to revert

to the last code that builds before I screw it up.

lib/libfasl.ss

@@ -25,7 +25,8 @@
 ;;;   "{" + field-count + rtd + fields
 ;;;   ">" + 4-bytes(i) : mark the next object with index i
 ;;;   "<" + 4-bytes(i) : dereference the object marked with index i
-;;;
+;;;   "x" : denotes code
+;;;   "T" : Thunk; followed by code.
 
 
 (let ()
@@ -195,6 +196,8 @@
                      (lambda (name) 
                        (make-graph ((record-field-accessor rtd name) x) h))
                      (record-type-field-names rtd))]))]
+             ;[(procedure? x)
+             ; (make-graph ($closure-code x) h)]
              [else (error 'fasl-write "~s is not fasl-writable" x)])]))))
   (define do-fasl-write 
     (lambda (x port)

lib/makefile.ss

@@ -132,9 +132,9 @@
     $symbol-plist $sc-put-cte $record? $record/rtd? $record-set!
     $record-ref $record-rtd $make-record $record $base-rtd $code?
     $code-reloc-vector $code-freevars $code-size $code-ref
-    $code-set!  $code->closure list*->code* make-code code?
-    set-code-reloc-vector! code-reloc-vector code-freevars code-size
-    code-ref code-set!  $frame->continuation $fp-at-base
+    $code-set!  $code->closure  list*->code* make-code
+    code?  set-code-reloc-vector! code-reloc-vector code-freevars
+    code-size code-ref code-set!  $frame->continuation $fp-at-base
     $current-frame $arg-list $seal-frame-and-call
     $make-call-with-values-procedure $make-values-procedure
     do-overflow collect $make-tcbucket $tcbucket-next $tcbucket-key