Required identifiers cannot error on use.

2013-10-26 14:14:06 -04:00 · 2013-10-26 14:14:06 -04:00 · 83827577d3
commit 83827577d3
parent dc79012a5c
1 changed files with 2 additions and 2 deletions
--- a/pkgs/errortrace-pkgs/errortrace-lib/errortrace/stacktrace.rkt
+++ b/pkgs/errortrace-pkgs/errortrace-lib/errortrace/stacktrace.rkt
@ -336,8 +336,8 @@
              ;; lexical variable - no error possile
              expr]
             [(and (pair? b) (let-values ([(base rel) (module-path-index-split (car b))])
-                               (equal? '(quote #%kernel) base)))
-              ;; built-in - no error possible
+                               (and base rel)))
+              ;; from another module -- no error possible
              expr]
             [else
              ;; might be undefined/uninitialized