Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / core / source-files / source-files.factor

diff --git a/core/source-files/source-files.factor b/core/source-files/source-files.factor
index 840ed94b966ffdfa2a0bcdae43450b15fd07f01b..120d91bb2269f8165aefda082d3a8b60c1cc0b8a 100644 (file)
--- a/core/source-files/source-files.factor
+++ b/core/source-files/source-files.factor
@@ -16,11 +16,11 @@ checksum
 definitions ;
 
 : record-top-level-form ( quot file -- )
-    (>>top-level-form)
+    top-level-form<<
     [ ] [ H{ } notify-definition-observers ] if-bootstrapping ;
 
 : record-checksum ( lines source-file -- )
-    [ crc32 checksum-lines ] dip (>>checksum) ;
+    [ crc32 checksum-lines ] dip checksum<< ;
 
 : record-definitions ( file -- )
     new-definitions get >>definitions drop ;