From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 17 May 2019 16:33:16 +0000 (-0700)
Subject: Fix enumerate-graphics-types per documentation.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7a371df58258c30895cefb960a1c2c1d1a233987;p=mit-scheme.git

Fix enumerate-graphics-types per documentation.
---

diff --git a/src/runtime/graphics.scm b/src/runtime/graphics.scm
index ed37bde78..c9c4c3a4a 100644
--- a/src/runtime/graphics.scm
+++ b/src/runtime/graphics.scm
@@ -217,7 +217,8 @@ USA.
   (graphics-type type #f))
 
 (define (enumerate-graphics-types)
-  (filter graphics-device-type/available? graphics-types))
+  (map graphics-device-type/name
+       (filter graphics-device-type/available? graphics-types)))
 
 (define (graphics-device-type/available? type)
   ((graphics-device-type/operation/available? type)))