shithub: femtolisp

Info  •  Files  •  Log  •  Branches

scheme alises: lambda → λ

--- a/aliases.scm

+++ b/aliases.scm

@@ -15,7 +15,7 @@

 (define gensym

   (let (($gensym gensym))

-    (lambda ((x #f)) ($gensym))))

+    (λ ((x #f)) ($gensym))))

 (define-macro (begin0 first . rest)

   `(prog1 ,first ,@rest))

@@ -26,7 +26,7 @@

 (define make-vector vector-alloc)

 (define (vector-fill! v f)

   (for 0 (- (length v) 1)

-       (lambda (i) (aset! v i f)))

+       (λ (i) (aset! v i f)))

   #t)

 (define array-ref aref)

@@ -108,7 +108,7 @@

 (define (open-output-string) (buffer))

 (define (open-string-output-port)

   (let ((b (buffer)))

-    (values b (lambda () (iostream->string b)))))

+    (values b (λ () (iostream->string b)))))

 (define (get-output-string b)

   (let ((p (io-pos b)))

@@ -175,7 +175,7 @@

   #t)

 (define assertion-violation

-  (lambda args

+  (λ args

     (display 'assertion-violation)

     (newline)

     (display args)

@@ -223,7 +223,7 @@

 (let ((*properties* (table)))

   (set! putprop

-        (lambda (sym key val)

+        (λ (sym key val)

           (let ((sp (get *properties* sym #f)))

             (if (not sp)

                 (let ((t (table)))

@@ -232,12 +232,12 @@

             (put! sp key val))))

   (set! getprop

-        (lambda (sym key)

+        (λ (sym key)

           (let ((sp (get *properties* sym #f)))

             (and sp (get sp key #f)))))

   (set! remprop

-        (lambda (sym key)

+        (λ (sym key)

           (let ((sp (get *properties* sym #f)))

             (and sp (has? sp key) (del! sp key))))))

@@ -252,11 +252,11 @@

 (define (include f) (load f))

 (define (with-exception-catcher hand thk)

   (trycatch (thk)

-            (lambda (e) (hand e))))

+            (λ (e) (hand e))))

 (define (current-exception-handler)

   ; close enough

-  (lambda (e) (raise e)))

+  (λ (e) (raise e)))

 (define make-table table)

 (define table-ref get)