Skip to content

Instantly share code, notes, and snippets.

@shirok

shirok/gist:60f1e35e99fad90b2a886994781debd8

Created November 11, 2019 10:01
Show Gist options
  • Save shirok/60f1e35e99fad90b2a886994781debd8 to your computer and use it in GitHub Desktop.
Save shirok/60f1e35e99fad90b2a886994781debd8 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
(define-syntax err
(er-macro-transformer
(^[f r c]
(let1 p ((with-module gauche.internal extended-cons) 'error (cdr f))
((with-module gauche.internal pair-attribute-set!) p 'source-info (debug-source-info f))
`(begin ,p #f)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment