4 files changed, 2 insertions(+), 11 deletions(-)

M fs/drv/pc/pci.fs
M fs/lib/fmt.fs
M fs/lib/meta.fs
M fs/xcomp/bootlo.fs

@@ 138,7 138,7 @@ $3f pcifield1 pci0.maxlatency "Max latency"
 
 : .pciaddr pcibus .x1 ':' emit pcislot .x1 '.' emit pcifunc . spc> ;
 
-\\ Print current PCI device in a one line summary
+\ Print current PCI device in a one line summary
 : .pciln ( -- )
   .pciaddr summaryfields 5 for ( a )
     @+ dup _getdesc stype spc> execute .x? spc> next drop nl> ;

@@ 40,7 40,7 @@ struct+[ IO
 : .x1 stdio :.x1 ;
 : .x2 stdio :.x2 ;
 : .x stdio :.x ;
-\\ print in hexadecimal with a width that depends on the value
+\ print in hexadecimal with a width that depends on the value
 : .x? dup $ffff > if .x else dup $ff > if .x2 else .x1 then then ;
 : . stdio :. ;
 

@@ 17,8 17,3 @@
 
 : findmeta ( id ll -- ll )
   begin dup while 2dup CELLSZ + @ <> while repeat then nip ;
-
-\ Docstring
-: .doc ( w -- ) w>e emeta begin ( ll )
-    EMETA_DOCLINE swap findmeta ?dup while ( ll )
-    dup 'emetadata begin c@+ dup emit LF = until drop llnext repeat ;

@@ 280,10 280,6 @@ code []= ( a1 a2 u -- f )
 : [if] not if S" [then]" begin word over s= until drop then ;
 alias noop [then]
 
-$01 const EMETA_DOCLINE \ a doc strings that ends with LF
-\ a \\ comment goes before the creation of the word it comments
-: \\ nextmeta lladd drop EMETA_DOCLINE , begin in< dup c, LF = until ;
-
 code move ( src dst u -- )
   W=0>Z, 0 Z) branchC, W>A, begin \ A=u
     PSP) 4 +) 8b) [@], PSP) 8b) [!],