diff --git a/RELEASE-NOTES b/RELEASE-NOTES index e5c0023..efc376b 100644 --- a/RELEASE-NOTES +++ b/RELEASE-NOTES @@ -32,5 +32,7 @@ - add example/irc-logger.retro - add example/ilo-export.retro - file:read-line no longer uses buffer: +- retro-describe now using hash based name comparison +- retro-describe small reductions in call/return overhead ================================================================ diff --git a/tools/retro-describe.retro b/tools/retro-describe.retro index 3a4fd0f..a1535d1 100755 --- a/tools/retro-describe.retro +++ b/tools/retro-describe.retro @@ -143,13 +143,13 @@ the description. {{ 'Target var 'LineNumber var - :matched? (-f) field:name @Target s:eq? ; + :matched? (-f) field:name s:hash @Target eq? ; :entry? (-f) @LineNumber DATA-START gteq? &LineNumber v:inc ; - :process (-) &Heap [ s:keep !SourceLine matched? [ display-result ] if ] v:preserve ; + :process (-) &Heap [ s:keep !SourceLine matched? &display-result if ] v:preserve ; ---reveal--- :find-and-display-entry - #0 !LineNumber s:keep !Target - script:name [ entry? [ process ] [ drop ] choose ] file:for-each-line nl ; + #0 !LineNumber s:hash !Target + script:name [ entry? &process &drop choose ] file:for-each-line nl ; }} ~~~