diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss index 30a1c4a68d..65bf69d75e 100644 --- a/collects/swindle/extra.ss +++ b/collects/swindle/extra.ss @@ -139,7 +139,7 @@ ;;> symbol-macro that accesses the corresponding slot value of `obj'. ;;> Each `slot' is either an identifier `id' which makes it stand for ;;> `(slot-ref obj 'id)', or `(id slot)' which makes `id' stand for -;;> `(slot-ref obj 'slot)'. +;;> `(slot-ref obj slot)'. (defsubst* (with-slots obj (slot ...) body0 body ...) (process-with-slots obj (slot ...) () body0 body ...))