mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 12:00:21 +02:00
Code Activity

add current-source-location

Browse source 
* module/ice-9/boot-9.scm (current-source-location): New macro, returns
  the, um, current source location.
This commit is contained in:
Andy Wingo 2010-06-06 23:21:24 +02:00
parent 750ae8b7b7
commit 41147ee732
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/ice-9/boot-9.scm
View file

@ -461,6 +461,14 @@ If there is no handler at all, Guile prints an error and then exits."
(include-from-path "ice-9/quasisyntax")
(define-syntax current-source-location
(lambda (x)
(syntax-case x ()
((_)
(with-syntax ((s (datum->syntax x (syntax-source x))))
#''s)))))
;;; {Defmacros}