From 856f201eb058a7ab9398db1efbf3eb7c96190abe Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 12 Jul 2017 12:07:41 +0000 Subject: [PATCH] Optimize negation --- scheme/cyclone/primitives.sld | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scheme/cyclone/primitives.sld b/scheme/cyclone/primitives.sld index 6c4a49e9..a17402c6 100644 --- a/scheme/cyclone/primitives.sld +++ b/scheme/cyclone/primitives.sld @@ -907,6 +907,8 @@ (cons 'Cyc-fast-plus (cdr prim-call))) ((and (equal? (car prim-call) '-) (= (length prim-call) 3)) (cons 'Cyc-fast-sub (cdr prim-call))) + ((and (equal? (car prim-call) '-) (= (length prim-call) 2)) + `(Cyc-fast-sub 0 ,@(cdr prim-call))) ((and (equal? (car prim-call) '*) (= (length prim-call) 3)) (cons 'Cyc-fast-mul (cdr prim-call))) ((and (equal? (car prim-call) '/) (= (length prim-call) 3))