[1] 'subst-binds' --> 'subst-bind'.

diff --git a/test/test-graph-generator.lisp b/test/test-graph-generator.lisp
index 65f6e8a..6b69908 100755 (executable)
--- a/test/test-graph-generator.lisp
+++ b/test/test-graph-generator.lisp
@@ -102,7 +102,7 @@
           ggen::*graph*
           '(((?i0 ?i1) (?nid orn) (?m2))
             ((?m2)     ?node      ?os)))
-  (let ((val (mapcar (curry #'um:subst-binds bind)
+  (let ((val (mapcar (curry #'um:subst-bind bind)
                      '(?i0 ?i1 ?nid ?m2 ?node ?os)))
         (exp '(e-0 e-2 orn-5 e-4 (out-6 ggen::out z) nil)))
     (assert (equal val exp)