boot2

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

24-dotted.scm (230B)


      1 ;; Step 11e: improper (dotted) list tail. (a b . c) is
      2 ;; (cons a (cons b c)).
      3 (if (= (car '(1 . 2)) 1)
      4   (if (= (cdr '(1 . 2)) 2)
      5     (if (= (car (cdr '(1 2 . 3))) 2)
      6       (if (= (cdr (cdr '(1 2 . 3))) 3)
      7         42 0) 0) 0) 0)