boot2

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

40-sys-argv.scm (263B)

      1 ; sys-argv returns a list of bytevectors. argv[0] is the program name,
      2 ; argv[1] is this script's path. We just count the entries via a list
      3 ; recursion and return that.
      4 (define (count xs)
      5   (if (null? xs) 0 (+ 1 (count (cdr xs)))))
      6 (sys-exit (count (sys-argv)))