From 2f69dda794b89816846fa8d715c4ce556fad01c8 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 23 Apr 2018 08:39:41 -0700 Subject: [PATCH] =?UTF-8?q?unless=20=E2=86=92=20when?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- beautiful-racket-demo/basic-demo-2/go.rkt | 2 +- beautiful-racket-demo/basic-demo-3/go.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/basic-demo-2/go.rkt b/beautiful-racket-demo/basic-demo-2/go.rkt index d29f19d..5f97ac5 100644 --- a/beautiful-racket-demo/basic-demo-2/go.rkt +++ b/beautiful-racket-demo/basic-demo-2/go.rkt @@ -15,7 +15,7 @@ (b-goto num-expr))) (define (b-return) - (unless (not (empty? return-ccs)) + (when (empty? return-ccs) (raise-line-error "return without gosub")) (define top-cc (pop! return-ccs)) (top-cc (void))) diff --git a/beautiful-racket-demo/basic-demo-3/go.rkt b/beautiful-racket-demo/basic-demo-3/go.rkt index d29f19d..5f97ac5 100644 --- a/beautiful-racket-demo/basic-demo-3/go.rkt +++ b/beautiful-racket-demo/basic-demo-3/go.rkt @@ -15,7 +15,7 @@ (b-goto num-expr))) (define (b-return) - (unless (not (empty? return-ccs)) + (when (empty? return-ccs) (raise-line-error "return without gosub")) (define top-cc (pop! return-ccs)) (top-cc (void)))