Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing type-of from type-inference module

Browse source
This commit is contained in:
Alex Shinn 2010-08-02 08:49:13 +09:00
parent 1d1130d4c3
commit 678a82f266
1 changed files with 0 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lib/chibi/type-inference.scm
View file

@ -65,17 +65,6 @@
(cons (car a) (lset-adjoin equal? (cdr a) b)))) (cons (car a) (lset-adjoin equal? (cdr a) b))))
(else (list 'and a b)))) (else (list 'and a b))))
(define (type-of x)
(cond ((boolean? x) <boolean>)
((char? x) <char>)
((symbol? x) <symbol>)
((string? x) <string>)
((and (integer? x) (exact? x)) <integer>)
((flonum? x) <flonum>)
((pair? x) <pair>)
((vector? x) <vector>)
(else <object>)))
(define (lambda-param-types-initialize! f) (define (lambda-param-types-initialize! f)
(lambda-param-types-set! f (map (lambda (p) (list 'param-type f p)) (lambda-param-types-set! f (map (lambda (p) (list 'param-type f p))
(lambda-params f)))) (lambda-params f))))