[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH 1/1] Remove unused parameter in 'walk'
From: |
Evan Hanson |
Subject: |
[Chicken-hackers] [PATCH 1/1] Remove unused parameter in 'walk' |
Date: |
Sun, 30 Apr 2017 09:50:38 +1200 |
From: LemonBoy <address@hidden>
Signed-off-by: Evan Hanson <address@hidden>
---
core.scm | 28 ++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/core.scm b/core.scm
index 84681bc5..ff81df94 100644
--- a/core.scm
+++ b/core.scm
@@ -2004,7 +2004,7 @@
;; fullenv is constantly (append localenv env). It's there to avoid
;; exponential behaviour by APPEND calls when compiling deeply nested LETs
- (define (walk n env localenv fullenv here call)
+ (define (walk n env localenv fullenv here)
(let ((subs (node-subexpressions n))
(params (node-parameters n))
(class (node-class n)) )
@@ -2024,7 +2024,7 @@
((##core#callunit ##core#recurse)
(grow 1)
- (walkeach subs env localenv fullenv here #f) )
+ (walkeach subs env localenv fullenv here))
((##core#call)
(grow 1)
@@ -2032,19 +2032,19 @@
(when (eq? '##core#variable (node-class fun))
(let ((name (first (node-parameters fun))))
(collect! db name 'call-sites (cons here n))))
- (walk (first subs) env localenv fullenv here #t)
- (walkeach (cdr subs) env localenv fullenv here #f) ) )
+ (walk (first subs) env localenv fullenv here)
+ (walkeach (cdr subs) env localenv fullenv here)))
((let ##core#let)
(let ([env2 (append params fullenv)])
(let loop ([vars params] [vals subs])
(if (null? vars)
- (walk (car vals) env (append params localenv) env2 here #f)
+ (walk (car vals) env (append params localenv) env2 here)
(let ([var (car vars)]
[val (car vals)] )
(db-put! db var 'home here)
(assign var val env2 here)
- (walk val env localenv fullenv here #f)
+ (walk val env localenv fullenv here)
(loop (cdr vars) (cdr vals)) ) ) ) ) )
((lambda) ; this is an intermediate lambda, slightly different
@@ -2057,7 +2057,7 @@
vars)
(let ([tl toplevel-scope])
(set! toplevel-scope #f)
- (walk (car subs) fullenv vars (append vars fullenv) #f #f)
+ (walk (car subs) fullenv vars (append vars fullenv) #f)
(set! toplevel-scope tl) ) ) ) )
((##core#lambda ##core#direct_lambda)
@@ -2082,7 +2082,7 @@
(unless toplevel-lambda-id (set! toplevel-lambda-id id))
(when (and (second params) (not (eq? toplevel-lambda-id id)))
(set! toplevel-scope #f)) ; only if non-CPS lambda
- (walk (car subs) fullenv vars (append vars fullenv) id #f)
+ (walk (car subs) fullenv vars (append vars fullenv) id)
(set! toplevel-scope tl)
;; decorate ##core#call node with size
(set-car! (cdddr (node-parameters n)) (- current-program-size
size0)) ) ) ) ) )
@@ -2106,18 +2106,18 @@
(assign var val fullenv here)
(unless toplevel-scope (db-put! db var 'assigned-locally #t))
(db-put! db var 'assigned #t)
- (walk (car subs) env localenv fullenv here #f) ) )
+ (walk (car subs) env localenv fullenv here)))
((##core#primitive ##core#inline)
(let ((id (first params)))
(when (and first-analysis here (symbol? id) (get-real-name id))
(set-real-name! id here) )
- (walkeach subs env localenv fullenv here #f) ) )
+ (walkeach subs env localenv fullenv here)))
- (else (walkeach subs env localenv fullenv here #f)) ) ) )
+ (else (walkeach subs env localenv fullenv here)))))
- (define (walkeach xs env lenv fenv here call)
- (for-each (lambda (x) (walk x env lenv fenv here call)) xs) )
+ (define (walkeach xs env lenv fenv here)
+ (for-each (lambda (x) (walk x env lenv fenv here)) xs) )
(define (assign var val env here)
(cond ((eq? '##core#undefined (node-class val))
@@ -2155,7 +2155,7 @@
;; Walk toplevel expression-node:
(debugging 'p "analysis traversal phase...")
(set! current-program-size 0)
- (walk node '() '() '() #f #f)
+ (walk node '() '() '() #f)
;; Complete gathered database information:
(debugging 'p "analysis gathering phase...")
--
2.11.0