assocs: Add of and ?of. Change all the things at once! Fixes #701.

[factor.git] / basis / ui / gadgets / panes / panes.factor

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 35447d71c50f3ea761eeaf4c0553d63f4c42df9d..bc9461ef8736a3bc015d3358481ff53e0df05167 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -199,9 +199,9 @@ MEMO: specified-font ( assoc -- font )
     #! We memoize here to avoid creating lots of duplicate font objects.
     [ monospace-font <font> ] dip
     {
-        [ font-name swap at >>name ]
+        [ font-name of >>name ]
         [
-            font-style swap at {
+            font-style of {
                 { f [ ] }
                 { plain [ ] }
                 { bold [ t >>bold? ] }
@@ -209,9 +209,9 @@ MEMO: specified-font ( assoc -- font )
                 { bold-italic [ t >>bold? t >>italic? ] }
             } case
         ]
-        [ font-size swap at >>size ]
-        [ foreground swap at >>foreground ]
-        [ background swap at >>background ]
+        [ font-size of >>size ]
+        [ foreground of >>foreground ]
+        [ background of >>background ]
     } cleave
     derive-font ;