From d05e1fdec9cb97db27407c374f6c52c8fea54b8a Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 26 Jun 2011 18:31:59 +0000 Subject: [PATCH] Fix typos in compiler/back/checks.scm. --- src/compiler/back/checks.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/compiler/back/checks.scm b/src/compiler/back/checks.scm index 4ff469a80..6cdf70a46 100644 --- a/src/compiler/back/checks.scm +++ b/src/compiler/back/checks.scm @@ -44,20 +44,20 @@ USA. ;; generation (from PRE-LAPGEN-ANALYSIS.) (define (get-entry-interrupt-checks) - (get-interupt-checks 'ENTRY-INTERRUPT-CHECKS)) + (get-interrupt-checks 'ENTRY-INTERRUPT-CHECKS)) (define (get-exit-interrupt-checks) - (get-interupt-checks 'EXIT-INTERRUPT-CHECKS)) + (get-interrupt-checks 'EXIT-INTERRUPT-CHECKS)) (define (expect-no-entry-interrupt-checks) - (if (not (null? (get-entry-interrupt-checks))) + (if (pair? (get-entry-interrupt-checks)) (error "No entry interrupt checks expected here" *current-bblock*))) (define (expect-no-exit-interrupt-checks) - (if (not (null? (get-exit-interrupt-checks))) + (if (pair? (get-exit-interrupt-checks)) (error "No exit interrupt checks expected here" *current-bblock*))) -(define (get-interupt-checks kind) +(define (get-interrupt-checks kind) (or (cfg-node-get *current-bblock* kind) (error "DETERMINE-INTERRUPT-CHECKS failed" kind))) @@ -92,7 +92,7 @@ USA. (define (explore bblock) (or (cfg-node-get bblock 'INTERRUPT-CHECK-EXPLORE) (begin - (cfg-node-put! bblock 'INTERRUPT-CHECK-EXPLORE #T) + (cfg-node-put! bblock 'INTERRUPT-CHECK-EXPLORE #t) (if (node-previous=0? bblock) (set! entries (cons bblock entries)) (if (rtl:continuation-entry? @@ -130,7 +130,7 @@ USA. (define upward (propagator for-each-previous-node)) (define downward (propagator for-each-subsequent-node)) - (define (setting-flag old) old #T) + (define (setting-flag old) old #t) (define (propagate-entry-info bblock) (let ((insn (rinst-rtl (bblock-instructions bblock)))) -- 2.25.1