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

Required identifiers cannot error on use.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-10-26 14:14:06 -04:00 committed by Vincent St-Amour
parent dc79012a5c
commit 83827577d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/errortrace-pkgs/errortrace-lib/errortrace/stacktrace.rkt
View File

@ -336,8 +336,8 @@
;; lexical variable - no error possile ;; lexical variable - no error possile
expr] expr]
[(and (pair? b) (let-values ([(base rel) (module-path-index-split (car b))]) [(and (pair? b) (let-values ([(base rel) (module-path-index-split (car b))])
(equal? '(quote #%kernel) base))) (and base rel)))
;; built-in - no error possible ;; from another module -- no error possible
expr] expr]
[else [else
;; might be undefined/uninitialized ;; might be undefined/uninitialized