X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fopengl%2Fannotations%2Fannotations.factor;fp=basis%2Fopengl%2Fannotations%2Fannotations.factor;h=29c56ea7614bfd34936726b700beb699d3022f68;hp=3282973b69ca8146231dae4c512309432ccdbb7d;hb=cefa1516a76e64ee32a9a96bf3f4cf2fb8e6ac51;hpb=ca3d7da8725ee62f1437122f40ba35443941ad86

diff --git a/basis/opengl/annotations/annotations.factor b/basis/opengl/annotations/annotations.factor
index 3282973b69..29c56ea761 100644
--- a/basis/opengl/annotations/annotations.factor
+++ b/basis/opengl/annotations/annotations.factor
@@ -29,7 +29,7 @@ gl-error-log [ V{ } clone ] initialize
 
 : annotate-gl-functions ( quot -- )
     [
-        [ gl-functions ] dip [ [ dup ] dip curry (annotate) ] curry each
+        [ gl-functions ] dip [ dupd curry (annotate) ] curry each
     ] with-compilation-unit ;
 
 : reset-gl-functions ( -- )