ikarus --compile-dependencies seems to be working now.

scheme/ikarus.fasl.ss

@@ -291,6 +291,14 @@
                  [else 
                   (let ([x (read)])
                     (cons x (f (- n 1))))])))]
+          [(#\L) ;;; list of length > 255
+           (let ([n (read-int p)])
+             (let f ([n n])
+               (cond
+                 [(< n 0) (read)]
+                 [else 
+                  (let ([x (read)])
+                    (cons x (f (- n 1))))])))]
           [else
            (die who "Unexpected char as a fasl object header" h)])))
     (read))

scheme/ikarus.load.ss

@@ -30,20 +30,29 @@
   (define (load-serialized-library filename sk)
     ;;; TODO: check file last-modified date
     (let ([ikfasl (string-append filename ".ikfasl")])
-      (and (file-exists? ikfasl)
+      (cond
-           (let ([x 
+        [(not (file-exists? ikfasl)) #f]
-                  (let ([p (open-file-input-port ikfasl)])
+        [(<= (file-ctime ikfasl) (file-ctime filename))
-                    (let ([x (fasl-read p)])
+         (printf 
-                      (close-input-port p)
+            "WARNING: not using fasl file ~s because it is older \
-                      x))])
+             than the source file ~s\n" 
-             (if (serialized-library? x)
+           ikfasl
-                 (apply sk (serialized-library-contents x))
+           filename)
-                 (begin
+         #f]
-                   (printf
+        [else
-                      "WARNING: not using fasl file ~s because it was \
+         (let ([x 
-                       compiled with a different version of ikarus.\n" 
+                (let ([p (open-file-input-port ikfasl)])
-                      ikfasl)
+                  (let ([x (fasl-read p)])
-                   #f))))))
+                    (close-input-port p)
+                    x))])
+           (if (serialized-library? x)
+               (apply sk (serialized-library-contents x))
+               (begin
+                 (printf
+                    "WARNING: not using fasl file ~s because it was \
+                     compiled with a different version of ikarus.\n" 
+                    ikfasl)
+                 #f)))])))
 
   (define (do-serialize-library filename contents)
     (let ([ikfasl (string-append filename ".ikfasl")])

scheme/last-revision

@@ -1 +1 @@
-1395
+1396