boot2

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

15-pred.scm (415B)

      1 ;; Predicates, equal?, and Scheme-level apply.
      2 (if (number? 1)
      3   (if (symbol? (quote foo))
      4     (if (string? "x")
      5       (if (vector? (make-vector 1 0))
      6         (if (procedure? +)
      7           (if (eq? (quote foo) (string->symbol "foo"))
      8             (if (equal? (list 1 (cons 2 3))
      9                         (list 1 (cons 2 3)))
     10               (if (= (apply + 1 2 (list 3 4)) 10)
     11                 42 0) 0) 0) 0) 0) 0) 0) 0)