From 93c37d2603154fae4b562eb1c708597e871fcd3c Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 5 Sep 2017 22:33:18 +0200 Subject: class definition improvements --- modules/language/python/compile.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'modules/language/python/compile.scm') diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 7ffe57a..151e0c2 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -3,6 +3,10 @@ #:use-module (ice-9 pretty-print) #:export (comp)) +(define-syntax call + (syntax-rules () + ((_ (f) . l) (f . l)))) + (define (fold f init l) (if (pair? l) (fold f (f (car l) init) (cdr l)) @@ -543,10 +547,6 @@ #`(let/ec ret #,code) code)))))) -(define-syntax call - (syntax-rules () - ((_ (f) . l) (f . l)))) - (define-syntax-rule (var v) (if (defined? 'v) (values) -- cgit v1.2.3