Changeset 27305 in project

Timestamp:

08/27/12 03:59:17 (9 years ago)

Author:

Ivan Raikov

Message:

nemo: print entire environment upon symbol not found error

File:

• release/4/nemo/trunk/nemo-core.scm (modified) (2 diffs)

release/4/nemo/trunk/nemo-core.scm

@@ -319 +319 @@
 
   (define (make-base-env)
-    (let ((env (make-hash-table hash: symbol-hash)))
+    (let ((env (make-hash-table size: 10000 min-load: 0.9 max-load: 0.9)))
       (add-primitives! env)
       (add-constants! env)
@@ -388 +388 @@
         (if (and (not (hash-table-exists? nemo-env s)) 
                  (not (member s lbs)))
-            (nemo:error 'symbol-check: s " in the definition of " loc " is not defined")
+            (begin
+              (pp (hash-table->alist nemo-env))
+              (nemo:error 'symbol-check: s " in the definition of " loc " is not defined")
+              )
             ))
       ))