* standalone/test-bad-identifiers: New test.
[bpt/guile.git] / HACKING
1 -*-text-*-
2 Guile Hacking Guide
3 Copyright (c) 1996, 1997, 1998, 1999, 2000, 2001, 2002 Free software Foundation, Inc.
4
5 Permission is granted to anyone to make or distribute verbatim copies
6 of this document as received, in any medium, provided that the
7 copyright notice and permission notice are preserved,
8 and that the distributor grants the recipient permission
9 for further redistribution as permitted by this notice.
10
11 Permission is granted to distribute modified versions
12 of this document, or of portions of it,
13 under the above conditions, provided also that they
14 carry prominent notices stating who last changed them,
15 and that any new or changed statements about the activities
16 of the Free Software Foundation are approved by the Foundation.
17
18
19 What to Hack =========================================================
20
21 You can hack whatever you want, thank GNU.
22
23 However, to see what others have indicated as their interest (and avoid
24 potential wasteful duplication of effort), see file TODO. Note that
25 the version you find may be out of date; a CVS checkout is recommended:
26 see below for details (see also the files ANON-CVS and SNAPSHOTS).
27
28 It's also a good idea to join the guile-devel@gnu.org mailing list.
29 See http://www.gnu.org/software/guile/mail/mail.html for more info.
30
31
32 Hacking It Yourself ==================================================
33
34 When Guile is obtained from CVS, a few extra steps must be taken
35 before the usual configure, make, make install. You will need to have
36 up-to-date versions of the tools listed below, correctly installed.
37 i.e., they must be found in the current PATH and not shadowed or
38 otherwise broken by files left behind from other versions.
39
40 "up-to-date" means the latest released versions at the time that Guile
41 was obtained from CVS. Sometimes older or newer versions will work.
42 (See below for versions to avoid.)
43
44 Then you must run the autogen.sh script, as described below.
45
46 In case of problems, it may be worth getting a fresh copy of Guile
47 from CVS: synchronisation problems have been known to occur
48 occasionally.
49
50 The same procedure can be used to regenerate the files in released
51 versions of Guile. In that case the headers of the original generated
52 files (e.g., configure, Makefile.in, ltmain.sh) can be used to
53 identify which tool versions may be required.
54
55 Autoconf --- a system for automatically generating `configure'
56 scripts from templates which list the non-portable features a
57 program would like to use. Available in
58 "ftp://ftp.gnu.org/pub/gnu/autoconf"
59
60 Automake --- a system for automatically generating Makefiles that
61 conform to the (rather Byzantine) GNU coding standards. The
62 nice thing is that it takes care of hairy targets like 'make
63 dist' and 'make distclean', and automatically generates
64 Makefile dependencies. Automake is available in
65 "ftp://ftp.gnu.org/pub/gnu/automake"
66
67 libtool --- a system for managing the zillion hairy options needed
68 on various systems to produce shared libraries. Available in
69 "ftp://ftp.gnu.org/pub/gnu/libtool"
70
71 gettext --- a system for rigging a program so that it can output its
72 messages in the local tongue. Guile presently only exports
73 the gettext functionality to Scheme, it does not use it
74 itself.
75
76 flex --- a scanner generator. It's probably not essential to have the
77 latest version.
78
79 One false move and you will be lost in a little maze of automatically
80 generated files, all different.
81
82 Here is the authoritative list of tool/version/platform tuples that
83 have been known to cause problems, and a short description of the problem.
84
85 - automake 1.4 adds extraneous rules to the top-level Makefile if
86 you specify specific Makefiles to rebuild on the command line.
87
88 - automake 1.4-p4 (debian "1:1.4-p4-1.1") all platforms
89 automake "include" facility does not recognize filenames w/ "-".
90
91 - libtool 1.4 uses acconfig.h, which is deprecated by newest autoconf
92 (which constructs the equivalent through 3rd arg of AC_DEFINE forms).
93
94 - autoreconf from autoconf prior to 2.59 will run gettextize, which
95 will mess up the Guile tree.
96
97 - (add here.)
98
99
100 Sample GDB Initialization File=========================================
101
102 Here is a sample .gdbinit posted by Bill Schottstaedt (modified to
103 use `set' instead of `call' in some places):
104
105 define gp
106 set gdb_print($arg0)
107 print gdb_output
108 end
109 document gp
110 Executes (object->string arg)
111 end
112
113 define ge
114 call gdb_read($arg0)
115 call gdb_eval(gdb_result)
116 set gdb_print(gdb_result)
117 print gdb_output
118 end
119 document ge
120 Executes (print (eval (read arg))): ge "(+ 1 2)" => 3
121 end
122
123 define gh
124 call g_help(scm_str2symbol($arg0), 20)
125 set gdb_print($1)
126 print gdb_output
127 end
128 document gh
129 Prints help string for arg: gh "enved-target"
130 end
131
132 Bill further writes:
133
134 so in gdb if you see something useless like:
135
136 #32 0x081ae8f4 in scm_primitive_load (filename=1112137128) at load.c:129
137
138 You can get the file name with gp:
139
140 (gdb) gp 1112137128
141 $1 = 0x40853fac "\"/home/bil/test/share/guile/1.5.0/ice-9/session.scm\""
142
143
144 Contributing Your Changes ============================================
145
146 - If you have put together a change that meets the coding standards
147 described below, we encourage you to submit it to Guile. The best
148 place to post it is guile-devel@gnu.org. Please don't send it
149 directly to me; I often don't have time to look things over. If you
150 have tested your change, then you don't need to be shy.
151
152 - Please submit patches using either context or unified diffs (diff -c
153 or diff -u). Don't include a patch for ChangeLog; such patches don't
154 apply cleanly, since we've probably changed the top of ChangeLog too.
155 Instead, provide the unaltered text at the top of your patch.
156
157 - For proper credit, also make sure you update the AUTHORS file
158 (for new files for which you've assigned copyright to the FSF), or
159 the THANKS file (for everything else).
160
161 Please don't include patches for generated files like configure,
162 aclocal.m4, or any Makefile.in. Such patches are often large, and
163 we're just going to regenerate those files anyway.
164
165
166 CVS conventions ======================================================
167
168 - We use CVS to manage the Guile sources. The repository lives on
169 subversions.gnu.org, in /cvs; you will need an
170 account on that machine to access the repository. Also, for security
171 reasons, subversions presently only supports CVS connections via the SSH
172 protocol, so you must first install the SSH client. Then, you should
173 set your CVS_RSH environment variable to ssh, and use the following as
174 your CVS root:
175
176 :ext:USER@subversions.gnu.org:/cvs
177
178 Either set your CVSROOT environment variable to that, or give it as
179 the value of the global -d option to CVS when you check out a working
180 directory.
181
182 For more information on SSH, see http://www.openssh.com.
183
184 The Guile sources live in several modules:
185
186 - guile-core --- the interpreter, QuickThreads, and ice-9
187 - guile-tcltk --- the Guile/Tk interface
188 - guile-tk --- the new Guile/Tk interface, based on STk's modified Tk
189 - guile-rgx-ctax --- the Guile/Rx interface, and the ctax implementation
190 - guile-scsh --- the port of SCSH to guile, talk to Gary Houston
191 - guile-www --- A Guile module for making HTTP requests.
192 - guile-statprof --- an experimental statistical profiler.
193
194 There is a mailing list for CVS commit messages; see README for details.
195
196 - The guile-core tree is now versioned similarly to the Linux kernel.
197 Guile now always uses three numbers to represent the version,
198 i.e. "1.6.5". The first number, 1, is the major version number, the
199 second number, 6, is the minor version number, and the third number,
200 5, is the micro version number. Changes in major version number
201 indicate major changes in Guile.
202
203 Minor version numbers that are even denote stable releases, and odd
204 minor version numbers denote development versions (which may be
205 unstable). The micro version number indicates a minor sub-revision of
206 a given MAJOR.MINOR release.
207
208 - A default CVS checkout will get the current unstable development
209 tree. However, for each stable release, a CVS branch is created so
210 that release (and ongoing maintenance) of the stable version can
211 proceed independent of the development of the next unstable version.
212 To check out a particular stable branch, you just need to specify "-r
213 branch_release-X-Y" to your CVS checkout command (or to any update).
214 For example, if you wanted to check out the 1.6 stable branch, you
215 would specify "-r branch_release-1-6".
216
217 So, for example, during a normal development cycle, work will proceed
218 on an unstable version, say 1.5.X, until it is decided that it's time
219 for a stable release. At that point, a branch named
220 branch_release-1-6 will be created, and the version numbers on the
221 HEAD of the CVS tree (the trunk, i.e. what you get by default), will
222 be changed to reflect the new unstable version 1.7.X. Then unstable
223 development will proceed on the unstable version, while the stable
224 1.5.X branch is fixed up for the eventual 1.6.0 release.
225
226 Anytime you want to yank an existing checked out tree to the stable
227 branch, you can run a command like this:
228
229 cvs -z3 update -r branch_release-1-6 -Pd
230
231 This will yank the working directory over on to the stable release
232 branch. Note that this directory will track that branch from then on
233 unless you do something to yank it back to the main (unstable) trunk.
234
235 To go back to the unstable branch, you can use
236
237 cvs -z3 update -A -Pd
238
239 Note that in either case, you should probably make sure you've
240 commited or removed all local changes before running the commands or
241 you're likely to have some unexpected results.
242
243 Finally note that one approach, should you need to work on both
244 branches, is to keep two trees checked out, one stable, the other
245 unstable and you can work in whichever is appropriate.
246
247 To save some initial bandwidth, you can check out either the stable
248 tree or the unstable tree, and then do something like this:
249
250 cp -a core-unstable core-1.5
251 cd core-1.5
252 cvs -z3 update -r branch_release-1-6 -Pd
253
254 - The stable and unstable CVS trees are distinct, and no changes will
255 automatically propagate between them. If you make changes that need
256 to show up both places, you'll need to apply the changes both places.
257 You *might* be able to do this with a cvs command, but often you'll
258 probably need to apply the changes by hand or risk migrating
259 superfluous modifications between the two versions. This is
260 particularly important when moving a change from the unstable branch
261 to the stable branch.
262
263 - In general, please don't be adventurous with the stable branch. We
264 mostly want bugfixes, documentation improvements, build improvements,
265 etc., though exceptions will doubtless exist.
266
267 - There are a few CVS tagging conventions which follow the Scheme
268 convention that dashes are used to separate words within a single
269 symbol, and so dashes bind more tightly than underscores. This means
270 that foo-bar_baz-bax indicates that foo-bar is somehow separate from
271 baz-bax. The conventions are as follows:
272
273 Branch root tags:
274 -----------------
275 anytime just before you create a branch it's a good
276 idea to create a normal tag so that you can refer to the branch point
277 on the main trunk as well as on the branch. So please use a tag of
278 the form
279
280 branch-root-release-1-X
281
282 or more generally, for other non-release branches:
283
284 branch-root_FOO
285
286 Branch tags:
287 ------------
288 for the branch tag itself please use
289
290 branch_release-1-6
291
292 or more generally, for other non-release branches:
293
294 branch_FOO
295
296 Merge tags:
297 -----------
298 Whenever you're merging a branch back into the trunk (or into another
299 branch repeatedly) you need to tag the branch each time you merge. If
300 you don't do that, you won't be able to merge repeatedly without
301 possibly tedious conflicts. For those tags, we suggest:
302
303 branch-merge_SOME-FOO_to_SOME-BAR_1
304 branch-merge_SOME-FOO_to_SOME-BAR_2
305 ..
306
307 As an example, SOME-BAR might be trunk, or even perhaps another branch
308 like branch-mvo-super-fixes :>
309
310 More mundanely, you might have
311
312 branch-merge_release-1-6_to_trunk_1
313
314 (Merging the stable branch to the trunk like this
315 will probably be much more common, when it happens, than the
316 reverse for the reasons mentioned above.
317
318 Release tags:
319 -------------
320 When releasing a new version of guile, please use:
321
322 release_X-Y-Z
323
324 i.e.
325
326 release_1-6-0
327
328 - If you hack on a stable branch, please apply any relevant patches or
329 fixes to the current unstable version (the main CVS trunk) as well.
330 Similarly, please back-port any important fixes to the unstable CVS
331 tree to the current stable branch.
332
333 - We check Makefile.am and configure.in files into CVS, but the
334 "autogen.sh" script must be run from the top-level to generate the
335 actual "configure" script that then must be run to create the various
336 Makefile-s to build guile. The general rule is that you should be able
337 to check out a working directory of Guile from CVS, and then type
338 "./autogen.sh", then "configure", and finally "make". No
339 automatically generated files should be checked into the CVS
340 repository.
341
342 - The .cvsignore file is contained in the repository, to provide a
343 reasonable list of auto-generated files that should not be checked in.
344 This, however, prohibits one from having local additions to the
345 .cvsignore file (yes, you can modify it and never check it in, but
346 that doesn't seem to be a good solution to me). To get around this
347 problem, you might want to patch your cvs program so that it uses a
348 .cvsignore-local file (say) instead of the one from the repository. A
349 patch for this can be found at the very end of this file.
350
351 - (Automake 1.4 only) Be sure to run automake at the top of the tree
352 with no arguments. Do not use `automake Makefile' to regenerate
353 specific Makefile.in files, and do not trust the Makefile rules to
354 rebuild them when they are out of date. Automake 1.4 will add
355 extraneous rules to the top-level Makefile if you specify specific
356 Makefiles to rebuild on the command line. Running the command
357 `autoreconf --force' should take care of everything correctly.
358
359 - Make sure your changes compile and work, at least on your own
360 machine, before checking them into the main branch of the Guile
361 repository. A good way for testing this is to run "make distcheck".
362 If you really need to check in untested changes, make a branch.
363
364 - Include each log entry in both the ChangeLog and in the CVS logs.
365 If you're using Emacs, the pcl-cvs interface to CVS has features to
366 make this easier; it checks the ChangeLog, and generates good default
367 CVS log entries from that.
368
369
370 Coding standards =====================================================
371
372 - Before contributing larger amounts of code to Guile, please read the
373 documents in `guile-core/devel/policy' in the CVS source tree.
374
375 - As for any part of Project GNU, changes to Guile should follow the
376 GNU coding standards. The standards are available via anonymous FTP
377 from prep.ai.mit.edu, as /pub/gnu/standards/standards.texi and
378 make-stds.texi.
379
380 - The Guile tree should compile without warnings under the following
381 GCC switches, which are the default in the current configure script:
382
383 -O2 -Wall -Wpointer-arith -Wmissing-prototypes
384
385 To make sure of this, you can use the --enable-error-on-warning option
386 to configure. This option will make GCC fail if it hits a warning.
387
388 Note that the warnings generated vary from one version of GCC to the
389 next, and from one architecture to the next (apparently). To provide
390 a concrete common standard, Guile should compile without warnings from
391 GCC 2.7.2.3 in a Red Hat 5.2 i386 Linux machine. Furthermore, each
392 developer should pursue any additional warnings noted by on their
393 compiler. This means that people using more stringent compilers will
394 have more work to do, and assures that everyone won't switch to the
395 most lenient compiler they can find. :)
396
397 Note also that EGCS (as of November 3 1998) doesn't handle the
398 `noreturn' attribute properly, so it doesn't understand that functions
399 like scm_error won't return. This may lead to some silly warnings
400 about uninitialized variables. You should look into these warnings to
401 make sure they are indeed spurious, but you needn't correct warnings
402 caused by this EGCS bug.
403
404 - If you add code which uses functions or other features that are not
405 entirely portable, please make sure the rest of Guile will still
406 function properly on systems where they are missing. This usually
407 entails adding a test to configure.in, and then adding #ifdefs to your
408 code to disable it if the system's features are missing.
409
410 - The normal way of removing a function, macro or variable is to mark
411 it as "deprecated", keep it for a while, and remove it in a later
412 release. If a function or macro is marked as "deprecated" it
413 indicates that people shouldn't use it in new programs, and should try
414 to remove it in old. Make sure that an alternative exists unless it
415 is our purpose to remove functionality. Don't deprecate definitions
416 if it is unclear when they will be removed. (This is to ensure that a
417 valid way of implementing some functionality always exists.)
418
419 When deprecating a definition, always follow this procedure:
420
421 1. Mark the definition using
422
423 #if (SCM_DEBUG_DEPRECATED == 0)
424 ...
425 #endif
426
427 or, for Scheme code, wrap it using
428
429 (begin-deprecated
430 ...)
431
432 2. Make the deprecated code issue a warning when it is used, by using
433 scm_c_issue_deprecation_warning (in C) or issue-deprecation-warning
434 (in Scheme).
435
436 3. Write a comment at the definition explaining how a programmer can
437 manage without the deprecated definition.
438
439 4. Add an entry that the definition has been deprecated in NEWS and
440 explain what do do instead.
441
442 5. In file TODO, there is a list of releases with reminders about what
443 to do at each release. Add a reminder about the removal of the
444 deprecated defintion at the appropriate release.
445
446 - Please write log entries for functions written in C under the
447 functions' C names, and write log entries for functions written in
448 Scheme under the functions' Scheme names. Please don't do this:
449
450 * procs.c, procs.h (procedure-documentation): Moved from eval.c.
451
452 Entries like this make it harder to search the ChangeLogs, because you
453 can never tell which name the entry will refer to. Instead, write this:
454
455 * procs.c, procs.h (scm_procedure_documentation): Moved from eval.c.
456
457 Changes like adding this line are special:
458
459 SCM_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);
460
461 Since the change here is about the name itself --- we're adding a new
462 alias for scm_map that guarantees the order in which we process list
463 elements, but we're not changing scm_map at all --- it's appropriate
464 to use the Scheme name in the log entry.
465
466 - There's no need to keep a change log for a ChangeLog file. For any
467 other kind of file (including documentation, since our documentation
468 is indeed precisely engineered -- we surpass GNU standards here), add
469 an appropriate ChangeLog entry when you change it. Simple!
470
471 - Make sure you have papers from people before integrating their
472 changes or contributions. This is very frustrating, but very
473 important to do right. From maintain.texi, "Information for
474 Maintainers of GNU Software":
475
476 When incorporating changes from other people, make sure to follow the
477 correct procedures. Doing this ensures that the FSF has the legal
478 right to distribute and defend GNU software.
479
480 For the sake of registering the copyright on later versions ofthe
481 software you need to keep track of each person who makes significant
482 changes. A change of ten lines or so, or a few such changes, in a
483 large program is not significant.
484
485 *Before* incorporating significant changes, make sure that the person
486 has signed copyright papers, and that the Free Software Foundation has
487 received them.
488
489 If you receive contributions you want to use from someone, let me know
490 and I'll take care of the administrivia. Put the contributions aside
491 until we have the necessary papers.
492
493 Once you accept a contribution, be sure to keep the files AUTHORS and
494 THANKS uptodate.
495
496 - When you make substantial changes to a file, add the current year to
497 the list of years in the copyright notice at the top of the file.
498
499 - When you get bug reports or patches from people, be sure to list
500 them in THANKS.
501
502
503 Naming conventions =================================================
504
505 We use certain naming conventions to structure the considerable number
506 of global identifiers. All identifiers should be either all lower
507 case or all upper case. Syllables are separated by underscores `_'.
508 All non-static identifiers should start with scm_ or SCM_. Then might
509 follow zero or more syllables giving the category of the identifier.
510 The currently used category identifiers are
511
512 t - type name
513
514 c,C - something with a interface suited for C use. This is used
515 to name functions that behave like Scheme primitives but
516 have a more C friendly calling convention.
517
518 i,I - internal to libguile. It is global, but not considered part
519 of the libguile API.
520
521 f - a SCM variable pointing to a Scheme function object.
522
523 F - a bit mask for a flag.
524
525 m - a macro transformer procedure
526
527 n,N - a count of something
528
529 s - a constant C string
530
531 k - a SCM variable pointing to a keyword.
532
533 sym - a SCM variable pointing to a symbol.
534
535 var - a SCM variable pointing to a variable object.
536
537 The follwing syllables also have a technical meaning:
538
539 str - this denotes a zero terminated C string
540
541 mem - a C string with an explicit count
542
543
544 See also the file `devel/names.text'.
545
546
547 Helpful hints ========================================================
548
549 - [From Mikael Djurfeldt] When working on the Guile internals, it is
550 quite often practical to implement a scheme-level procedure which
551 helps you examine the feature you're working on.
552
553 Examples of such procedures are: pt-size, debug-hand and
554 current-pstate.
555
556 I've now put #ifdef GUILE_DEBUG around all such procedures, so that
557 they are not compiled into the "normal" Guile library. Please do the
558 same when you add new procedures/C functions for debugging purpose.
559
560 You can define the GUILE_DEBUG flag by passing --enable-guile-debug to
561 the configure script.
562
563 - You'll see uses of the macro SCM_P scattered throughout the code;
564 those are vestiges of a time when Guile was meant to compile on
565 pre-ANSI compilers. Guile now requires ANSI C, so when you write new
566 functions, feel free to use ANSI declarations, and please provide
567 prototypes for everything. You don't need to use SCM_P in new code.
568
569
570 Jim Blandy, and others
571
572
573 Patches ===========================================================
574
575 This one makes cvs-1.10 consider the file $CVSDOTIGNORE instead of
576 .cvsignore when that environment variable is set.
577
578 === patch start ===
579 diff -r -u cvs-1.10/src/cvs.h cvs-1.10.ignore-hack/src/cvs.h
580 --- cvs-1.10/src/cvs.h Mon Jul 27 04:54:11 1998
581 +++ cvs-1.10.ignore-hack/src/cvs.h Sun Jan 23 12:58:09 2000
582 @@ -516,7 +516,7 @@
583
584 extern int ign_name PROTO ((char *name));
585 void ign_add PROTO((char *ign, int hold));
586 -void ign_add_file PROTO((char *file, int hold));
587 +int ign_add_file PROTO((char *file, int hold));
588 void ign_setup PROTO((void));
589 void ign_dir_add PROTO((char *name));
590 int ignore_directory PROTO((char *name));
591 diff -r -u cvs-1.10/src/ignore.c cvs-1.10.ignore-hack/src/ignore.c
592 --- cvs-1.10/src/ignore.c Mon Sep 8 01:04:15 1997
593 +++ cvs-1.10.ignore-hack/src/ignore.c Sun Jan 23 12:57:50 2000
594 @@ -99,9 +99,9 @@
595 /*
596 * Open a file and read lines, feeding each line to a line parser. Arrange
597 * for keeping a temporary list of wildcards at the end, if the "hold"
598 - * argument is set.
599 + * argument is set. Return true when the file exists and has been handled.
600 */
601 -void
602 +int
603 ign_add_file (file, hold)
604 char *file;
605 int hold;
606 @@ -149,8 +149,8 @@
607 if (fp == NULL)
608 {
609 if (! existence_error (errno))
610 - error (0, errno, "cannot open %s", file);
611 - return;
612 + error (0, errno, "cannot open %s", file);
613 + return 0;
614 }
615 while (getline (&line, &line_allocated, fp) >= 0)
616 ign_add (line, hold);
617 @@ -159,6 +159,7 @@
618 if (fclose (fp) < 0)
619 error (0, errno, "cannot close %s", file);
620 free (line);
621 + return 1;
622 }
623
624 /* Parse a line of space-separated wildcards and add them to the list. */
625 @@ -375,6 +376,7 @@
626 struct stat sb;
627 char *file;
628 char *xdir;
629 + char *cvsdotignore;
630
631 /* Set SUBDIRS if we have subdirectory information in ENTRIES. */
632 if (entries == NULL)
633 @@ -397,7 +399,10 @@
634 if (dirp == NULL)
635 return;
636
637 - ign_add_file (CVSDOTIGNORE, 1);
638 + cvsdotignore = getenv("CVSDOTIGNORE");
639 + if (cvsdotignore == NULL || !ign_add_file (cvsdotignore, 1))
640 + ign_add_file (CVSDOTIGNORE, 1);
641 +
642 wrap_add_file (CVSDOTWRAPPER, 1);
643
644 while ((dp = readdir (dirp)) != NULL)
645 === patch end ===
646
647 This one is for pcl-cvs-2.9.2, so that `i' adds to the local
648 .cvsignore file.
649
650 === patch start ===
651 --- pcl-cvs.el~ Mon Nov 1 12:33:46 1999
652 +++ pcl-cvs.el Tue Jan 25 21:46:27 2000
653 @@ -1177,7 +1177,10 @@
654 "Append the file in FILEINFO to the .cvsignore file.
655 Can only be used in the *cvs* buffer."
656 (save-window-excursion
657 - (set-buffer (find-file-noselect (expand-file-name ".cvsignore" dir)))
658 + (set-buffer (find-file-noselect
659 + (expand-file-name (or (getenv "CVSDOTIGNORE")
660 + ".cvsignore")
661 + dir)))
662 (goto-char (point-max))
663 (unless (zerop (current-column)) (insert "\n"))
664 (insert str "\n")
665 === patch end ===