mes: Add const.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 20 May 2018 11:18:36 +0000 (13:18 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 20 May 2018 11:18:36 +0000 (13:18 +0200)
* module/mes/scm.mes (const): New function.
* tests/scm.test ("const"): Test it.

module/mes/scm.mes
tests/scm.test

index 9beac54b80b160ed2e0abeaeb612de7799992b58..9bd53581850a814a1770c78def6357137c1c44be 100644 (file)
 (define (negate proc)
   (lambda args
     (not (apply proc args))))
+
+(define (const . rest)
+  (lambda (. _)
+    (car rest)))
index 7254d1848c4e05cf6f6a9b56e5039c7a9a4c4c37..98055a9fdf82b1c775e88ee909d3787da2a44e32 100755 (executable)
@@ -159,4 +159,7 @@ exit $?
 (pass-if-equal "octal" 65 #o101)
 (pass-if-equal "hex" 257 #x101)
 
+(pass-if-equal "negate" #t ((negate eq?) 0 1))
+(pass-if-equal "const" 42 ((const 42) 1 2 3 4))
+
 (result 'report)