From 497172f64ef4104d699601fe11b9f466b0613e5b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 15 Jun 2011 11:02:21 +0800 Subject: [PATCH] fix typo --- collects/launcher/launcher-unit.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/launcher/launcher-unit.rkt b/collects/launcher/launcher-unit.rkt index 701fae682e..5b22f289e2 100644 --- a/collects/launcher/launcher-unit.rkt +++ b/collects/launcher/launcher-unit.rkt @@ -104,7 +104,7 @@ (let* ([perms1 (file-or-directory-permissions dest 'bits)] [perms2 (bitwise-ior user-read-bit user-write-bit user-execute-bit perms1)]) - (unless (equal perms1 perms2) + (unless (equal? perms1 perms2) (file-or-directory-permissions dest perms2)))) (define (script-variant? v)