boot2

Playing with the boostrap
git clone https://git.ryansepassi.com/git/boot2.git
Log | Files | Refs | README

20-quote.scm (406B)


      1 ;; Step 11a: quote shorthand. 'x → (quote x); same for the atomic,
      2 ;; symbol, and list cases.
      3 (if (= (quote 42) 42)
      4   (if (eq? (quote foo) (quote foo))
      5     (if (= (car (quote (1 2 3))) 1)
      6       (if (= (length (quote (1 2 3))) 3)
      7         (if (= '42 42)
      8           (if (eq? 'foo 'foo)
      9             (if (= (car '(1 2 3)) 1)
     10               (if (= (length '(1 2 3)) 3)
     11                 42 0) 0) 0) 0) 0) 0) 0) 0)