From 7fb92ba3828878cea62b3c16b7f8cd593b2044b4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 10 Jul 2024 07:31:56 -0400 Subject: Fix harmless but misleading copy/paste error. --- chapter-7/propagators.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'chapter-7') diff --git a/chapter-7/propagators.scm b/chapter-7/propagators.scm index 1835d9c..c3d0cc4 100644 --- a/chapter-7/propagators.scm +++ b/chapter-7/propagators.scm @@ -611,7 +611,7 @@ (define (build) (r:rgb->hsv rgb hsv) (r:hsv->rgb hsv rgb)) - (constraint-propagator 'r:components<->hsv (list rgb hsv) build)) + (constraint-propagator 'r:rgb<->hsv (list rgb hsv) build)) (define (render exp) (append-child! (document-body) (sxml->dom exp))) -- cgit v1.2.3