From 259d43ca378b7b4cb25b221edf49490eaedeb234 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Mon, 18 Feb 2008 23:29:49 -0500
Subject: [PATCH] Changed fasl extension from ".ikfasl" to ".ikarus-fasl"

---
 scheme/ikarus.load.ss | 6 ++++--
 scheme/last-revision  | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/scheme/ikarus.load.ss b/scheme/ikarus.load.ss
index 619f14d..b82432c 100644
--- a/scheme/ikarus.load.ss
+++ b/scheme/ikarus.load.ss
@@ -27,9 +27,11 @@
 
   (define-struct serialized-library (contents))
 
+  (define fasl-extension ".ikarus-fasl")
+
   (define (load-serialized-library filename sk)
     ;;; TODO: check file last-modified date
-    (let ([ikfasl (string-append filename ".ikfasl")])
+    (let ([ikfasl (string-append filename fasl-extension)])
       (cond
         [(not (file-exists? ikfasl)) #f]
         [(<= (file-ctime ikfasl) (file-ctime filename))
@@ -55,7 +57,7 @@
                  #f)))])))
 
   (define (do-serialize-library filename contents)
-    (let ([ikfasl (string-append filename ".ikfasl")])
+    (let ([ikfasl (string-append filename fasl-extension)])
       (printf "Serializing ~s\n" ikfasl)
       (let ([p (open-file-output-port ikfasl (file-options no-fail))])
         (fasl-write (make-serialized-library contents) p)
diff --git a/scheme/last-revision b/scheme/last-revision
index 12c4d99..8778ad6 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1398
+1399