diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor index 775e6e55c4..c1fc0124f1 100644 --- a/extra/modern/out/out.factor +++ b/extra/modern/out/out.factor @@ -27,13 +27,12 @@ GENERIC: write-literal* ( last obj -- last' ) M: slice write-literal* [ write-whitespace ] [ write ] [ ] tri ; M: array write-literal* [ write-literal* ] each ; M: renamed write-literal* [ slice>> write-whitespace ] [ string>> write ] [ slice>> ] tri ; ! for refactoring - - +M: string write-literal* write ; DEFER: map-literals : (map-literals) ( obj quot: ( obj -- obj' ) -- seq ) over [ array? ] any? [ - [ call drop ] [ map-literals ] 2bi + [ call ] [ map-literals ] bi ] [ over array? [ map-literals ] [ call ] if ] if ; inline recursive @@ -42,7 +41,6 @@ DEFER: map-literals '[ _ (map-literals) ] map ; inline recursive - ! Start with no slice as ``last`` : write-literal ( obj -- ) f swap write-literal* drop ; @@ -106,3 +104,15 @@ DEFER: map-literals { "" } surround "resource:core-parsed.factor" utf8 [ ... ] with-file-writer ; + +![[ +: rewrite-core-paths-with-semis ( -- ) + core-source-paths first [ + dup { [ array? ] [ ?first upper-colon? ] } 1&& [ + dup ?first >strings . + dup length 2 = [ + first2 1 cut* { " " ";" } swap 3append 2array + ] when + ] when + ] rewrite-path ; +]] \ No newline at end of file