Lines Matching +refs:assq +refs:set

9           reset-seed gen-symbol set? iota with-values
10           empty-set singleton-set
13           var quoted-const time printf system interpret pretty-print format set-cons
118       (and (memq x '(quote set! if begin let letrec lambda)) #t))) 
171       (set-car! 2 effect)
172       (set-cdr! 2 effect) 
174       (vector-set! 3 effect))) 
183       (closure-set! 3 effect) 
197       (and (assq x list-of-user-primitives) #t))) 
201       (and (assq x list-of-system-primitives) #t))) 
210         [(or (assq x list-of-user-primitives)
211              (assq x list-of-system-primitives)) =>
218         [(or (assq x list-of-user-primitives)
219              (assq x list-of-system-primitives)) =>
226         [(or (assq x list-of-user-primitives)
227              (assq x list-of-system-primitives)) =>
245       (set! gen-symbol-seed 0)))
249       (set! gen-symbol-seed (+ gen-symbol-seed 1))
252   (define set?
255           (and (not (memq (car ls) (cdr ls))) (set? (cdr ls)))))) 
261   (define empty-set (lambda () '())) 
263   (define singleton-set (lambda (elt) (list elt))) 
266     (lambda (elt set)
267       (if (member? elt set)
268           set
269           (cons elt set)))) 
275   (define set-cons
276     (lambda (a set)
277       (if (memq a set) set (cons a set))))
281       [() (empty-set)]
287          [else (reduce (lambda (elt set)
288                          (if (member? elt set2) set (cons elt set)))
294            (union set1 (reduce union (empty-set) sets)))])) 
300         [(any empty? sets) (empty-set)]
303                   (every (lambda (set) (member? elt set)) sets)) set1)]))) 
322                                   (any (lambda (set) 
323                                          (member? elt set))