1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00

Fix error in recent define-option-interface "simplification".

Fix source breakpoints to cope with port whose filename is #f.
Ensure that position recording is enabled when source breakpoint module loaded.
This commit is contained in:
Neil Jerram 2002-11-06 00:29:24 +00:00
parent 0983f67f09
commit 3f619266b1
3 changed files with 17 additions and 1 deletions

View file

@ -257,9 +257,15 @@
(set-source-property! x' 'column
column)
x'))))
;; Don't allow breakpointed expression to have
;; a filename property that isn't a string.
(or (string? filename)
(set-source-property! x' 'filename "<unnamed port>"))
(break! x x')
x'))))
(read-enable 'positions)
; (define g (make-guardian))
; (read-hash-extend #\g
; (lambda (c port)