diff options
| author |  John Cowan
| 2021-11-07 13:26:39 -0500 |
|---|---|---|
| committer | John Cowan
| 2021-11-07 13:26:39 -0500 |
| commit | 4a41fcd464fd24b700196bd00e7633050229d192 (patch) | |
| tree | aafee35678d420ded7346f8137ee20808ec5ba37 /srfi/assumptions.scm | |
| parent | editorial (diff) | |
| parent | fix 'remove' test (diff) | |
Merge remote-tracking branch 'arvyy/master'
Diffstat (limited to 'srfi/assumptions.scm')
| -rw-r--r-- | srfi/assumptions.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/srfi/assumptions.scm b/srfi/assumptions.scm new file mode 100644 index 0000000..86ef435 --- /dev/null +++ b/srfi/assumptions.scm @@ -0,0 +1,7 @@ +(define-syntax assume + (syntax-rules () + ((assume expression message ...) + (or expression + (error "invalid assumption" (quote expression) (list message ...)))) + ((assume . _) + (syntax-error "invalid assume syntax")))) |