lint - (load filename) (begin (lint (- n 1)) (load...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
(define (lint n) (define (lint-help n) (define wd (word 'int- n '.scm)) (define filename (symbol->string wd)) (if (= n 1)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: (load filename) (begin (lint (- n 1)) (load filename)))) (begin (load "record.scm") (lint-help n)))...
View Full Document

This note was uploaded on 11/30/2010 for the course EECS 21281 taught by Professor Harvey during the Spring '10 term at University of California, Berkeley.

Ask a homework question - tutors are online