From 41b1523d0d73de4296be7979e70e91dc2ba0c6b6 Mon Sep 17 00:00:00 2001
From: Matt Wilbur <wilburm@gmail.com>
Date: Sun, 30 Jan 2022 15:59:53 -0500
Subject: [PATCH] One minor typo, one bug

---
 mulinh.tex | 9 ++++-----
 obj1.tex   | 2 +-
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/mulinh.tex b/mulinh.tex
index 50d381d..95ae7ee 100644
--- a/mulinh.tex
+++ b/mulinh.tex
@@ -64,11 +64,10 @@ \section{Multiple inheritance}
 \scmdribble{
 (define create-class-proc
   (lambda (direct-superclasses slots method-names method-vector)
-    (let ((class-precedence-list
-           (delete-duplicates
-            (append-map
-             (lambda (c) (vector-ref c 2))
-             direct-superclasses))))
+    (let ((class-precedence-list (append direct-superclasses (delete-duplicates
+                                   (append-map
+                                    (lambda (c) (vector-ref c 2))
+                                    direct-superclasses)))))
       (send 'make-instance standard-class
             'class-precedence-list class-precedence-list
             'slots
diff --git a/obj1.tex b/obj1.tex
index 33cbf77..888424f 100644
--- a/obj1.tex
+++ b/obj1.tex
@@ -121,7 +121,7 @@ \section{A simple object system}
 \n This  binds \q{my-bike} to the instance
 
 \q{
-#(<trivial-bike-class> cromoly 18.5 alivio)
+#(<trivial-bike-class> cromoly alivio 18.5)
 }
 
 \n where \q{<trivial-bike-class>} is a Scheme datum (another