From 62145ea95a90b627432db3dc63a726269b34086e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 25 Sep 2018 17:54:28 -0400
Subject: [PATCH] Bugfix, forgot acc

---
 scheme/cyclone/cps-optimizations.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index a05f19de..9874b914 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -119,7 +119,7 @@
     (define (adb:lambda-ids)
       (filter number? (hash-table-keys *adb*)))
     (define (adb:max-lambda-id)
-      (foldl max (adb:lambda-ids)))
+      (foldl max 0 (adb:lambda-ids)))
     (define (adb:set! key val) (hash-table-set! *adb* key val))
     (define-record-type <analysis-db-variable>
       (%adb:make-var