diff options
Diffstat (limited to 'src/guile/srfi/srfi-64.upstream.scm')
| -rw-r--r-- | src/guile/srfi/srfi-64.upstream.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/guile/srfi/srfi-64.upstream.scm b/src/guile/srfi/srfi-64.upstream.scm index 4ad9ccb..15de1f1 100644 --- a/src/guile/srfi/srfi-64.upstream.scm +++ b/src/guile/srfi/srfi-64.upstream.scm @@ -24,9 +24,12 @@ (chicken (require-extension syntax-case)) (guile - (use-modules (ice-9 syncase) (srfi srfi-9) + (use-modules (srfi srfi-9) ;;(srfi srfi-34) (srfi srfi-35) - not in Guile 1.6.7 - (srfi srfi-39))) + (srfi srfi-39)) + (cond-expand ((not guile-2) + (ice-9 syncase)) + (else (begin)))) (sisc (require-extension (srfi 9 34 35 39))) (kawa |