Lines Matching +refs:assq +refs:set
265 (bad-table "spec-set must be a non-empty list: ~a" spec))
267 …(bad-table "spec-set type must be 'once-any, 'once-each, 'multi, 'final, 'help-labels, 'usage-help…
328 (let* ([finalled? #f] ; set to true when 'once-final is seen
329 [once-spec-set
331 (let ([set (mcons #f (apply append (map car lines)))])
333 (lambda (line) (cons set line))
344 ;; list of (list <once-set> <spec-line> ...)
345 ;; If <once-set> is #f, then flags in <spec-line> are allowed
347 ;; If <once-set> is 'final, then its like #f, and `finalled?' should
348 ;; be set.
349 ;; Otherwise, <once-set> is (mcons <bool> (list <string> ...)) where <bool>
361 (for ([set (in-list table)]
362 #:when (eq? (car set) 'usage-help))
363 (for ([line (in-list (cdr set))])
366 (for ([set (in-list table)] ; the original table
367 #:unless (memq (car set) '(ps usage-help)))
368 (if (eq? (car set) 'help-labels)
369 (for ([line (in-list (cdr set))])
371 (for ([line (in-list (cdr set))])
376 (cond [(and (eq? (car set) 'once-any)
377 (pair? (cddr set)))
379 [(and (first? line (cdr set))
382 [(and (last? line (cdr set))
387 [(and (memq (car set) '(multi final))
400 (if (and (eq? (car set) 'once-any)
401 (pair? (cddr set)))
402 (if (and (last? line (cdr set))
417 (when (or (assq 'multi table) (assq 'final table))
419 (when (assq 'once-any table)
421 (when (or (assq 'multi table) (assq 'final table) (assq 'once-any table))
425 (for ([set (in-list table)] ; the original table
426 #:when (eq? (car set) 'ps))
427 (for ([line (in-list (cdr set))])
436 (map (lambda (line) (once-spec-set (list line)))
439 (once-spec-set (cdr spec))]
511 (set! finalled? #t))
513 (let ([set (caar table)])
514 (if (mcar set)
515 (let ([flags (mcdr set)])
535 (set-mcar! set #t))))