Last Update: November 4, 2016
Offline Version
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module logger_mod | |
use env_mod | |
use error_mod | |
use optional_mod | |
use character_mod | |
implicit none | |
private |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(define obj (make-top-level-environment)) | |
(environment-define obj 'foo (lambda (x) (+ x bar))) | |
(environment-define obj 'bar 10) | |
((environment-lookup obj 'foo) 1) | |
; Unbound variable: bar | |
;; This works: | |
(define obj (extend-top-level-environment #f)) | |
(eval '(define (foo x) (+ x bar)) obj) | |
(environment-define obj 'bar 10) | |
((environment-lookup obj 'foo) 1) |