From c0a1abace163cf56d3cccf6dfbbe857c2ab37573 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 29 Jul 2008 07:54:06 -0700
Subject: [PATCH] Added &undefined condition to unbound error conditions.

---
 scheme/ikarus.symbols.ss | 18 +++++++++---------
 scheme/last-revision     |  2 +-
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/scheme/ikarus.symbols.ss b/scheme/ikarus.symbols.ss
index fdef120..593f752 100644
--- a/scheme/ikarus.symbols.ss
+++ b/scheme/ikarus.symbols.ss
@@ -54,9 +54,13 @@
         (die 'top-level-value "not a symbol" x))
       (let ([v ($symbol-value x)])
         (when ($unbound-object? v)
-          (die 'eval "unbound variable" 
-            (string->symbol
-              (symbol->string x))))
+          (raise
+            (condition
+              (make-undefined-violation)
+              (make-who-condition 'eval)
+              (make-message-condition "unbound variable")
+              (make-irritants-condition 
+                (list (string->symbol (symbol->string x)))))))
         v)))
 
   (define top-level-bound?
@@ -104,12 +108,8 @@
           (if (procedure? v)
               v
               (lambda args
-                (let ([v ($symbol-value x)])
-                  (if ($unbound-object? v)
-                      (die 'eval "unbound variable" 
-                        (string->symbol
-                          (symbol->string x)))
-                      (die 'apply "not a procedure" v)))))))))
+                (die 'apply "not a procedure" 
+                  (top-level-value x))))))))
 
   (define string->symbol
     (lambda (x)
diff --git a/scheme/last-revision b/scheme/last-revision
index 9cb032d..3f6465f 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1558
+1559