Groups | Search | Server Info | Login | Register

Groups > comp.lang.scheme > #6520

Re: a hardware Lisp interpreter

Cross-posted to 2 groups.

Show all headers | View raw

Levi Campbell wrote:

> (defun lookup-variable (search-name)
>   (loop for (name . value) in *variables* do
>         (when (eql name search-name)
>           (return-from lookup-variable value))))

Gauche Scheme:

(use srfi-42)  ;; first-ec
(use util.match)

(define (lookup search-name)
  (first-ec #f
    (:list e Variables)
    (begin  (match-define (name . value) e))
    (if (eqv? search-name name))
    value))


-- 
[T]he problem is that lispniks are as cultish as any other devout group and
basically fall down frothing at the mouth if they see [heterodoxy].
  --- Kenny Tilton
The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham

Back to comp.lang.scheme | Previous | Next | Find similar

Thread

Re: a hardware Lisp interpreter "B. Pym" <Nobody447095@here-nor-there.org> - 2025-07-19 03:58 +0000

csiph-web