X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fgeneric%2Fsingle%2Fsingle-tests.factor;h=f59268b770312caa7566d8bfe88a4d5adf969753;hp=61ae4e1ba1090db669be21602f03af8ebc88ac22;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e diff --git a/core/generic/single/single-tests.factor b/core/generic/single/single-tests.factor index 61ae4e1ba1..f59268b770 100644 --- a/core/generic/single/single-tests.factor +++ b/core/generic/single/single-tests.factor @@ -1,10 +1,10 @@ -IN: generic.single.tests USING: tools.test math math.functions math.constants generic.standard generic.single strings sequences arrays kernel accessors words specialized-arrays.double byte-arrays bit-arrays parser namespaces make quotations stack-checker vectors growable hashtables sbufs prettyprint byte-vectors bit-vectors specialized-vectors.double definitions generic sets graphs assocs grouping see eval ; +IN: generic.single.tests GENERIC: lo-tag-test ( obj -- obj' ) @@ -279,4 +279,4 @@ M: growable call-next-hooker call-next-method "growable " prepend ; ! Corner case [ "IN: generic.single.tests GENERIC# broken-generic# -1 ( a -- b )" eval( -- ) ] [ error>> bad-dispatch-position? ] -must-fail-with \ No newline at end of file +must-fail-with