suzanne.soy/cur
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed some issues with top-interactive

Browse Source 
Previous, top-interactive was full of hacks and likely to break under
various scenarios. Now, it is less full of hacks and less likely to
break.
This commit is contained in:
William J. Bowman 2015-11-10 17:57:32 -05:00
parent 11f07080bd
commit a57a719fdf
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
curnel/redex-lang.rkt
View File

@ -114,7 +114,14 @@
(define (extend-Σ/syn! env x t c*) (define (extend-Σ/syn! env x t c*)
(env (extend-Σ/syn env x t c*))) (env (extend-Σ/syn env x t c*)))
(define bind-subst (make-parameter (list null null))) (define subst? (list/c (listof x?) (listof e?)))
(define bind-subst
(make-parameter
(list null null)
(lambda (x)
(unless (subst? x)
(error 'core-error "We build a bad subst ~s" x))
x)))
(define (add-binding/term! x t) (define (add-binding/term! x t)
(let ([vars (first (bind-subst))] (let ([vars (first (bind-subst))]
@ -460,20 +467,14 @@
(syntax-case syn () (syntax-case syn ()
[(_ . form) [(_ . form)
(begin (begin
;; TODO NB FIXME: HACKS HACKS HACKS ;; TODO NB FIXME: HACKS
#`(begin #`(begin
(export-envs gamma-out sigma-out bind-out) (export-envs gamma-out sigma-out bind-out)
(begin-for-syntax (begin-for-syntax
;; Try to detect when we are in DrRacket, and do the right thing. (define nm (map namespace-variable-value (namespace-mapped-symbols)))
(when (equal? 'debug-error-display-handler (object-name (error-display-handler))) (bind-subst (first (memf subst? nm)))
(cond (gamma (first (memf Γ? nm)))
[(null? (namespace-mapped-symbols)) (sigma (first (memf Σ? nm))))
(displayln "You will need to add a (provide ...) in the definitions area for the evaluator to load Cur definitions correctly.")]
[(eq? 3 (length (namespace-mapped-symbols)))
(bind-subst (namespace-variable-value (first (namespace-mapped-symbols))))
(gamma (namespace-variable-value (second (namespace-mapped-symbols))))
(sigma (namespace-variable-value (third (namespace-mapped-symbols))))]
[else (void)])))
form))])) form))]))
(define-syntax (dep-define syn) (define-syntax (dep-define syn)