ambrevar/syntax: Rename readtable to "syntax" to avoid clashes with default readtable.
Indeed, if multiple named readtables are called "readtable" (even with a package prefix), the last one to be defined seems to override the currently loaded 'readtable'.master
parent
ed5c68bcbe
commit
c872a37fe2
|
@ -81,7 +81,7 @@ GUIX-COMMAND is the command to the guix executable, e.g. '(\"~/projects/guix/pre
|
||||||
;; packages remain loadable?
|
;; packages remain loadable?
|
||||||
`((sbcl-ambrevar ("lisp-repl-core-dumper" "-p" "ambrevar sb-sprof" "sbcl"
|
`((sbcl-ambrevar ("lisp-repl-core-dumper" "-p" "ambrevar sb-sprof" "sbcl"
|
||||||
"--eval" "(in-package :ambrevar/all)"
|
"--eval" "(in-package :ambrevar/all)"
|
||||||
"--eval" "(named-readtables:in-readtable ambrevar/syntax:readtable)"))
|
"--eval" "(named-readtables:in-readtable ambrevar/syntax:syntax)"))
|
||||||
(sbcl (,@maybe-core-dumper "sbcl"))
|
(sbcl (,@maybe-core-dumper "sbcl"))
|
||||||
(sbcl-failsafe ("sbcl"))
|
(sbcl-failsafe ("sbcl"))
|
||||||
(sbcl-nyxt (lambda () (ambrevar/sbcl-for-nyxt :no-grafts? t)))
|
(sbcl-nyxt (lambda () (ambrevar/sbcl-for-nyxt :no-grafts? t)))
|
||||||
|
|
|
@ -45,8 +45,8 @@
|
||||||
(read-until stream #\")
|
(read-until stream #\")
|
||||||
(ambrevar/file:file (read-until stream #\")))
|
(ambrevar/file:file (read-until stream #\")))
|
||||||
|
|
||||||
(export-always 'readtable)
|
(export-always 'syntax)
|
||||||
(named-readtables:defreadtable readtable
|
(named-readtables:defreadtable ambrevar/syntax::syntax
|
||||||
(:merge :standard)
|
(:merge :standard)
|
||||||
(:dispatch-macro-char #\# #\# #'sh-reader)
|
(:dispatch-macro-char #\# #\# #'sh-reader)
|
||||||
(:dispatch-macro-char #\# #\$ #'$cmd-reader)
|
(:dispatch-macro-char #\# #\$ #'$cmd-reader)
|
||||||
|
|
Loading…
Reference in New Issue