Skip to content

Commit

Permalink
Diagnose cell-internal reference problems
Browse files Browse the repository at this point in the history
push environment updates after package definition
  • Loading branch information
jbouwman committed Aug 19, 2024
1 parent 722aa3c commit a9f3c04
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/entry.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -232,8 +232,8 @@
(program-package (parser:program-package program))
(package-name (parser:toplevel-package-name program-package)))
(print-form output (make-prologue))
(print-form output (make-environment-updater updates))
(print-form output (parser:make-defpackage program-package))
(print-form output (make-environment-updater updates))
(print-form output `(in-package ,package-name))
;; coalton-impl/codegen/program:compile-translation-unit wraps
;; definitions in progn to provide a single expression as the
Expand Down
2 changes: 1 addition & 1 deletion src/source.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -70,7 +70,7 @@ In the case of source that is copied to a different location during compilation

(defmethod print-object ((self source-file) stream)
(if *print-readably*
(format stream "#.(make-instance 'coalton-impl/source::source-file~@[ :name ~s~] :file ~s~:[~; :offset ~s~])"
(format stream "#.(cl:make-instance 'coalton-impl/source::source-file~@[ :name ~s~] :file ~s~:[~; :offset ~s~])"
(original-name self)
(input-name self)
(< 0 (file-offset self))
Expand Down

0 comments on commit a9f3c04

Please sign in to comment.