Welcome to the CHICKEN Scheme pasting service

indentation of => added by gahr on Wed Feb 14 11:20:52 2024

  (define (matcher path)
    (define (match? p) (string=? path (sprintf "/~A" (titleize (page-title p)))))
    (let ((pages (load-pages)))
      (cond ((and (not (string=? "/" path)) (find match? pages))
             => (cut list #t <>))
            (else (list #f pages)))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What's the operator to construct procedures?
Visually impaired? Let me spell it for you (wav file) download WAV