steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix copy-into sig11 with negative start offset

slava 2006-12-02 21:44:18 +00:00
parent dbaad383d2
commit 6140178393
4 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
TODO.txt
View File

@ -3,9 +3,14 @@
- ui operations: restarts are broken - ui operations: restarts are broken
- command buttons: indicate shortcuts - command buttons: indicate shortcuts
- http://paste.lisp.org/display/30426 - http://paste.lisp.org/display/30426
- error popups obscure input area, and show redundant info (parse-error error.)
- also error popups should protect against error. throwing an exception
- operations which call parse are being run in the wrong namespace
+ 0.88: + 0.88:
- browser: tile titles should respond to right-clicks and/or have a
menu popup button
- growable data heap - growable data heap
- variable width word wrap - variable width word wrap
- graphical crossref tool - graphical crossref tool

1
core/collections/sequence-combinators.factor
View File

@ -165,6 +165,7 @@ IN: sequences
] if ; inline ] if ; inline
: copy-into-check ( n dest src -- n dest src ) : copy-into-check ( n dest src -- n dest src )
pick 0 < [ >r bounds-error r> ] when
pick over length + pick 2dup length > pick over length + pick 2dup length >
[ set-length ] [ 2drop ] if ; inline [ set-length ] [ 2drop ] if ; inline

2
core/handbook/ui/tools.facts
View File

@ -132,11 +132,11 @@ ARTICLE: "ui-tools" "UI development tools"
$terpri $terpri
"To take full advantage of the UI, you should be using a supported text editor, and load the correct editor integration module. See " { $link edit } "." "To take full advantage of the UI, you should be using a supported text editor, and load the correct editor integration module. See " { $link edit } "."
{ $subsection "ui-tool-tutorial" } { $subsection "ui-tool-tutorial" }
"All development tools are integrated into a single-window " { $emphasis "workspace" } "."
{ $subsection "ui-workspace-keys" } { $subsection "ui-workspace-keys" }
{ $subsection "ui-presentations" } { $subsection "ui-presentations" }
{ $subsection "ui-completion" } { $subsection "ui-completion" }
{ $heading "Tools" } { $heading "Tools" }
"All development tools are integrated into a single-window " { $emphasis "workspace" } "."
{ $subsection "ui-listener" } { $subsection "ui-listener" }
{ $subsection "ui-browser" } { $subsection "ui-browser" }
{ $subsection "ui-help" } { $subsection "ui-help" }

3
core/test/collections/sequences.factor
View File

@ -82,6 +82,9 @@ unit-test
[ [ 1 2 3 4 ] ] [ [ 1 2 3 ] [ 4 ] append ] unit-test [ [ 1 2 3 4 ] ] [ [ 1 2 3 ] [ 4 ] append ] unit-test
[ [ 1 2 3 4 ] ] [ [ 1 2 3 ] { 4 } append ] unit-test [ [ 1 2 3 4 ] ] [ [ 1 2 3 ] { 4 } append ] unit-test
[ "a" -1 append ] unit-test-fails
[ -1 "a" append ] unit-test-fails
[ [ ] ] [ 1 [ ] remove ] unit-test [ [ ] ] [ 1 [ ] remove ] unit-test
[ [ ] ] [ 1 [ 1 ] remove ] unit-test [ [ ] ] [ 1 [ 1 ] remove ] unit-test
[ [ 3 1 1 ] ] [ 2 [ 3 2 1 2 1 ] remove ] unit-test [ [ 3 1 1 ] ] [ 2 [ 3 2 1 2 1 ] remove ] unit-test