Changeset 27305 in project
- Timestamp:
- 08/27/12 03:59:17 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/nemo/trunk/nemo-core.scm
r27285 r27305 319 319 320 320 (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))) 322 322 (add-primitives! env) 323 323 (add-constants! env) … … 388 388 (if (and (not (hash-table-exists? nemo-env s)) 389 389 (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 ) 391 394 )) 392 395 ))
Note: See TracChangeset
for help on using the changeset viewer.