From 3d7b816272c32132b4f8a9d36a84c1e57d34921b Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 24 Mar 2015 17:27:32 -0400 Subject: [PATCH] =?UTF-8?q?Added=20(symbol=3D=3F)?= --- trans.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/trans.scm b/trans.scm index b87dfeb0..325ca892 100644 --- a/trans.scm +++ b/trans.scm @@ -115,6 +115,17 @@ (list-tail (cdr lst) (- k 1)))) (define (list-ref lst k) (car (list-tail lst k))) (define (reverse lst) (foldl cons '() lst)) + (define (symbol=? sym1 sym2 . syms) + (and + (eq? sym1 sym2) + (call/cc + (lambda (return) + (for-each + (lambda (s) + (if (not (eq? s sym1)) + (return #f))) + syms) + #t)))) (define (error msg . args) (raise (cons msg args))) (define (raise obj)