From 1d9a26cefd539364bfe359239f74e346fed012b1 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 26 May 2009 12:04:55 +0300
Subject: [PATCH] - changed fasl extension to be
 ".ikarus-32bit-fasl"/".ikarus-64bit-fasl"   (depending on the target
 processor) instead of just ".ikarus-fasl".

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

diff --git a/scheme/ikarus.load.ss b/scheme/ikarus.load.ss
index 73d749f..f78dfff 100644
--- a/scheme/ikarus.load.ss
+++ b/scheme/ikarus.load.ss
@@ -26,7 +26,10 @@
 
   (define-struct serialized-library (contents))
 
-  (define fasl-extension ".ikarus-fasl")
+  (define fasl-extension 
+    (cond
+      [(<= (fixnum-width) 32) ".ikarus-32bit-fasl"]
+      [else                   ".ikarus-64bit-fasl"]))
 
   (define (load-serialized-library filename sk)
     (let ([ikfasl (string-append filename fasl-extension)])
diff --git a/scheme/last-revision b/scheme/last-revision
index 50d09fb..81f2d52 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1791
+1792