diff options
| -rw-r--r-- | chapter-7/propagators.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |