Skip to content

Instantly share code, notes, and snippets.

@edw

edw/bad.scm

Created December 19, 2018 11:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save edw/62dc8a96b1732b47a45a2ccf3d8df776 to your computer and use it in GitHub Desktop.
Save edw/62dc8a96b1732b47a45a2ccf3d8df776 to your computer and use it in GitHub Desktop.
Download ZIP
Bad(?) record
Raw
bad.scm
(define-library (example bad)
(export Bad bad)
(import (scheme base))
(begin (define-record-type Bad
(make-bad a)
bad?
(a bad-a))
(define (bad a)
(make-bad a))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment