Changeset 27305 in project


Ignore:
Timestamp:
08/27/12 03:59:17 (9 years ago)
Author:
Ivan Raikov
Message:

nemo: print entire environment upon symbol not found error

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/nemo/trunk/nemo-core.scm

    r27285 r27305  
    319319
    320320  (define (make-base-env)
    321     (let ((env (make-hash-table hash: symbol-hash)))
     321    (let ((env (make-hash-table size: 10000 min-load: 0.9 max-load: 0.9)))
    322322      (add-primitives! env)
    323323      (add-constants! env)
     
    388388        (if (and (not (hash-table-exists? nemo-env s))
    389389                 (not (member s lbs)))
    390             (nemo:error 'symbol-check: s " in the definition of " loc " is not defined")
     390            (begin
     391              (pp (hash-table->alist nemo-env))
     392              (nemo:error 'symbol-check: s " in the definition of " loc " is not defined")
     393              )
    391394            ))
    392395      ))
Note: See TracChangeset for help on using the changeset viewer.