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:
parent
0983f67f09
commit
3f619266b1
3 changed files with 17 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue