....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 3.135.64.200
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/cmuscheme.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\313\314\307\304&\207" [require scheme comint custom-declare-group cmuscheme nil "Run a scheme process in a buffer." :group custom-declare-variable inferior-scheme-mode-hook "Hook for customizing inferior-scheme mode." :type hook] 8)
(defvar inferior-scheme-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\313!\210)\207" [m make-sparse-keymap define-key "\230" scheme-send-definition "" scheme-send-last-sexp "\f" scheme-load-file "" scheme-compile-file scheme-mode-commands] 4))
(byte-code "\302\303\304#\210\302\305\306#\210\302\307\304#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\334\335\"\302	\336\337#\210\302	\340\341#\210\302	\342\343#\210\302	\344\345#\210\302	\346\347#\210\302	\350\351#\210\302	\352\353#\210\302	\354\355#\210\302	\356\357#\210\302	\360\361#\210\302	\362\363#\210\302	\364\365#\210\302	\366\367#\210)\302\207" [scheme-mode-map map define-key "\230" scheme-send-definition "" scheme-send-last-sexp "" "\345" scheme-send-definition-and-go "" scheme-send-region "\362" scheme-send-region-and-go "\343" scheme-compile-definition "" scheme-compile-definition-and-go "" scheme-trace-procedure "" scheme-expand-current-form "" switch-to-scheme "\f" scheme-load-file "" scheme-compile-file lookup-key [menu-bar scheme] [separator-eval] ("--") [compile-file] ("Compile Scheme File" . scheme-compile-file) [load-file] ("Load Scheme File" . scheme-load-file) [switch] ("Switch to Scheme" . switch-to-scheme) [com-def-go] ("Compile Definition & Go" . scheme-compile-definition-and-go) [com-def] ("Compile Definition" . scheme-compile-definition) [exp-form] ("Expand current form" . scheme-expand-current-form) [trace-proc] ("Trace procedure" . scheme-trace-procedure) [send-def-go] ("Evaluate Last Definition & Go" . scheme-send-definition-and-go) [send-def] ("Evaluate Last Definition" . scheme-send-definition) [send-region-go] ("Evaluate Region & Go" . scheme-send-region-and-go) [send-region] ("Evaluate Region" . scheme-send-region) [send-sexp] ("Evaluate Last S-expression" . scheme-send-last-sexp)] 4)
(defvar inferior-scheme-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [inferior-scheme-mode-hook variable-documentation put "Hook run after entering Inferior Scheme mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp inferior-scheme-mode-map definition-name inferior-scheme-mode] 4)
(defvar inferior-scheme-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [inferior-scheme-mode-abbrev-table inferior-scheme-mode-map variable-documentation put purecopy "Keymap for `inferior-scheme-mode'." boundp inferior-scheme-mode-syntax-table definition-name inferior-scheme-mode (lambda (#1=#:def-tmp-var) (defvar inferior-scheme-mode-syntax-table #1#)) make-syntax-table "Syntax table for `inferior-scheme-mode'." (lambda (#1#) (defvar inferior-scheme-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `inferior-scheme-mode'." derived-mode-parent comint-mode] 5)
#@1702 Major mode for interacting with an inferior Scheme process.

The following commands are available:
\{inferior-scheme-mode-map}

A Scheme process can be fired up with M-x run-scheme.

Customization: Entry to this mode runs the hooks on `comint-mode-hook' and
`inferior-scheme-mode-hook' (in that order).

You can send text to the inferior Scheme process from other buffers containing
Scheme source.
    `switch-to-scheme' switches the current buffer to the Scheme process buffer.
    `scheme-send-definition' sends the current definition to the Scheme process.
    `scheme-compile-definition' compiles the current definition.
    `scheme-send-region' sends the current region to the Scheme process.
    `scheme-compile-region' compiles the current region.

    `scheme-send-definition-and-go', `scheme-compile-definition-and-go',
        `scheme-send-region-and-go', and `scheme-compile-region-and-go'
        switch to the Scheme process buffer after sending their text.
For information on running multiple processes in multiple buffers, see
documentation for variable `scheme-buffer'.

Commands:
Return after the end of the process' output sends the text from the
    end of process to point.
Return before the end of the process' output copies the sexp ending at point
    to the end of the process' output, and sends it.
Delete converts tabs to spaces as it moves back.
Tab indents for Scheme; with argument, shifts rest
    of expression rigidly with the current line.
C-M-q does Tab on each line starting within following expression.
Paragraphs are separated only by blank lines.  Semicolons start comments.
If you accidentally suspend your process, use \[comint-continue-subjob]
to continue it.
(defalias 'inferior-scheme-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324 \325\"\204V !=\204V\326 \325!C#\210\327!\210\330\f!\210 !\331\"\332 \210\333#\334$\335%)\336\337!\207" [delay-mode-hooks major-mode mode-name inferior-scheme-mode-map inferior-scheme-mode-syntax-table parent make-local-variable t comint-mode inferior-scheme-mode "Inferior Scheme" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table "^[^>\n]*>+ *" scheme-mode-variables (":%s") scheme-input-filter scheme-get-old-input run-mode-hooks inferior-scheme-mode-hook inferior-scheme-mode-abbrev-table local-abbrev-table comint-prompt-regexp mode-line-process comint-input-filter comint-get-old-input] 6 (#$ . 4018) nil])
#@127 Input matching this regexp are not saved on the history list.
Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.
(custom-declare-variable 'inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'" '(#$ . 6715) :type 'regexp :group 'cmuscheme)
#@63 Don't save anything matching `inferior-scheme-filter-regexp'.
(defalias 'scheme-input-filter #[(str) "	\303\304\305#)\266\203?\207" [inferior-scheme-filter-regexp str inhibit-changing-match-data nil t string-match] 7 (#$ . 6978)])
#@33 Snarf the sexp ending at point.
(defalias 'scheme-get-old-input #[nil "\212`\301 \210`{*\207" [end backward-sexp] 2 (#$ . 7220)])
#@608 Run an inferior Scheme process, input and output via buffer `*scheme*'.
If there is a process already running in `*scheme*', switch to that buffer.
With argument, allows you to edit the command line (default is value
of `scheme-program-name').
If the file `~/.emacs_SCHEMENAME' or `~/.emacs.d/init_SCHEMENAME.scm' exists,
it is given as initial input.
Note that this may lose due to a timing error if the Scheme processor
discards input when it starts up.
Runs the hook `inferior-scheme-mode-hook' (after the `comint-mode-hook'
is run).
(Type \[describe-mode] in the process buffer for a list of commands.)
(defalias 'run-scheme #[(cmd) "\304\305!\204\306!\307\310\311	@\312	@!	A%q\210\313 \210)\305\314\305!\207" [cmd cmdlist scheme-program-name scheme-buffer comint-check-proc "*scheme*" split-string-and-unquote apply make-comint "scheme" scheme-start-file inferior-scheme-mode pop-to-buffer-same-window] 6 (#$ . 7359) (list (if current-prefix-arg (read-string "Run Scheme: " scheme-program-name) scheme-program-name))])
#@167 Return the name of the start file corresponding to PROG.
Search in the directories "~" and `user-emacs-directory',
in this order.  Return nil if no start file found.
(defalias 'scheme-start-file #[(prog) "\305!\306	P\307	\310R\311\n!\203\n\202\311\f!\205\f+\207" [prog progname start-file user-emacs-directory alt-start-file file-name-nondirectory "~/.emacs_" "init_" ".scm" file-exists-p] 4 (#$ . 8397)])
#@57 Send the current region to the inferior Scheme process.
(defalias 'scheme-send-region #[(start end) "\302\303 	#\210\304\303 \305\"\207" [start end comint-send-region scheme-proc comint-send-string "\n"] 4 (#$ . 8820) "r"])
#@61 Send the current definition to the inferior Scheme process.
(defalias 'scheme-send-definition #[nil "\212\301 \210`\302 \210\303`\"*\207" [end end-of-defun beginning-of-defun scheme-send-region] 3 (#$ . 9051) nil])
#@56 Send the previous sexp to the inferior Scheme process.
(defalias 'scheme-send-last-sexp #[nil "\300\212\301 \210`)`\"\207" [scheme-send-region backward-sexp] 3 (#$ . 9274) nil])
#@72 Template for issuing commands to compile arbitrary Scheme expressions.
(custom-declare-variable 'scheme-compile-exp-command "(compile '%s)" '(#$ . 9458) :type 'string :group 'cmuscheme)
#@118 Compile the current region in the inferior Scheme process.
(A BEGIN is wrapped around the region: (BEGIN <region>).)
(defalias 'scheme-compile-region #[(start end) "\303\304 \305\305\306	\n{\"\"\"\210\303\304 \307\"\207" [scheme-compile-exp-command start end comint-send-string scheme-proc format "(begin %s)" "\n"] 8 (#$ . 9651) "r"])
#@64 Compile the current definition in the inferior Scheme process.
(defalias 'scheme-compile-definition #[nil "\212\301 \210`\302 \210\303`\"*\207" [end end-of-defun beginning-of-defun scheme-compile-region] 3 (#$ . 9994) nil])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable scheme-trace-command "(trace %s)" "Template for issuing commands to trace a Scheme procedure.\nSome Scheme implementations might require more elaborate commands here.\nFor PLT-Scheme, e.g., one should use\n\n   (setq scheme-trace-command \"(begin (require (lib \\\"trace.ss\\\")) (trace %s))\")\n\nFor Scheme 48 and Scsh use \",trace %s\"." :type string :group cmuscheme scheme-untrace-command "(untrace %s)" "Template for switching off tracing of a Scheme procedure.\nScheme 48 and Scsh users should set this variable to \",untrace %s\"."] 8)
#@115 Trace procedure PROC in the inferior Scheme process.
With a prefix argument switch off tracing of procedure PROC.
(defalias 'scheme-trace-procedure #[(proc &optional untrace) "G\304U\203\305\306!\210\307\310 \311	\203\n\202\"\"\210\307\310 \312\"\207" [proc untrace scheme-untrace-command scheme-trace-command 0 error "Invalid procedure name" comint-send-string scheme-proc format "\n"] 5 (#$ . 10886) (list (let ((current (symbol-at-point)) (action (if current-prefix-arg "Untrace" "Trace"))) (if current (read-string (format "%s procedure [%s]: " action current) nil nil (symbol-name current)) (read-string (format "%s procedure: " action)))) current-prefix-arg)])
#@86 Template for macro-expanding a Scheme form.
For Scheme 48 and Scsh use ",expand %s".
(custom-declare-variable 'scheme-macro-expand-command "(expand %s)" '(#$ . 11568) :type 'string :group 'cmuscheme)
#@64 Macro-expand the form at point in the inferior Scheme process.
(defalias 'scheme-expand-current-form #[nil "\302 \211\203\303\304 \305	\"\"\210\303\304 \306\"\202\307\310!)\207" [current-form scheme-macro-expand-command scheme-form-at-point comint-send-string scheme-proc format "\n" error "Not at a form"] 6 (#$ . 11774) nil])
(defalias 'scheme-form-at-point #[nil "\301\302!\211\203\303\304\305#\306\230\203\202\212\307 \210\310 ))\207" [next-sexp thing-at-point sexp substring 0 1 "(" backward-up-list scheme-form-at-point] 5])
#@87 Switch to the Scheme process buffer.
With argument, position cursor at end of buffer.
(defalias 'switch-to-scheme #[(eob-p) "\203\n\302!\204\303 \203\304!\210\202\305\306!\210	\205#\307 \210db\207" [scheme-buffer eob-p get-buffer scheme-interactively-start-process pop-to-buffer-same-window error "No current process buffer.  See variable `scheme-buffer'" push-mark] 2 (#$ . 12326) "P"])
#@92 Send the current region to the inferior Scheme process.
Then switch to the process buffer.
(defalias 'scheme-send-region-and-go #[(start end) "\302	\"\210\303\304!\207" [start end scheme-send-region switch-to-scheme t] 3 (#$ . 12731) "r"])
#@88 Send the current definition to the inferior Scheme.
Then switch to the process buffer.
(defalias 'scheme-send-definition-and-go #[nil "\300 \210\301\302!\207" [scheme-send-definition switch-to-scheme t] 2 (#$ . 12978) nil])
#@91 Compile the current definition in the inferior Scheme.
Then switch to the process buffer.
(defalias 'scheme-compile-definition-and-go #[nil "\300 \210\301\302!\207" [scheme-compile-definition switch-to-scheme t] 2 (#$ . 13208) nil])
#@87 Compile the current region in the inferior Scheme.
Then switch to the process buffer.
(defalias 'scheme-compile-region-and-go #[(start end) "\302	\"\210\303\304!\207" [start end scheme-compile-region switch-to-scheme t] 3 (#$ . 13447) "r"])
#@258 Used to determine if a buffer contains Scheme source code.
If it's loaded into a buffer that is in one of these major modes, it's
considered a scheme source file by `scheme-load-file' and `scheme-compile-file'.
Used by these commands to determine defaults.
(custom-declare-variable 'scheme-source-modes ''(scheme-mode) '(#$ . 13696) :type '(repeat function) :group 'cmuscheme)
#@184 Caches the last (directory . file) pair.
Caches the last pair used in the last `scheme-load-file' or
`scheme-compile-file' command.  Used for determining the default
in the next one.
(defvar scheme-prev-l/c-dir/file nil (#$ . 14080))
#@64 Load a Scheme file FILE-NAME into the inferior Scheme process.
(defalias 'scheme-load-file #[(file-name) "\302!\210\303!\304!B\305\306 \307\310Q\"\207" [file-name scheme-prev-l/c-dir/file comint-check-source file-name-directory file-name-nondirectory comint-send-string scheme-proc "(load \"" "\")\n"] 5 (#$ . 14320) (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file scheme-source-modes t)])
#@65 Compile a Scheme file FILE-NAME in the inferior Scheme process.
(defalias 'scheme-compile-file #[(file-name) "\302!\210\303!\304!B\305\306 \307\310Q\"\207" [file-name scheme-prev-l/c-dir/file comint-check-source file-name-directory file-name-nondirectory comint-send-string scheme-proc "(compile-file \"" "\")\n"] 5 (#$ . 14738) (comint-get-source "Compile Scheme file: " scheme-prev-l/c-dir/file scheme-source-modes nil)])
#@2009 The current scheme process buffer.

MULTIPLE PROCESS SUPPORT
===========================================================================
Cmuscheme.el supports, in a fairly simple fashion, running multiple Scheme
processes.  To run multiple Scheme processes, you start the first up with
\[run-scheme].  It will be in a buffer named *scheme*.  Rename this buffer
with \[rename-buffer].  You may now start up a new process with another
\[run-scheme].  It will be in a new buffer, named *scheme*.  You can
switch between the different process buffers with \[switch-to-buffer].

Commands that send text from source buffers to Scheme processes --
like `scheme-send-definition' or `scheme-compile-region' -- have to choose a
process to send to, when you have more than one Scheme process around.  This
is determined by the global variable `scheme-buffer'.  Suppose you
have three inferior Schemes running:
    Buffer	Process
    foo		scheme
    bar		scheme<2>
    *scheme*    scheme<3>
If you do a \[scheme-send-definition-and-go] command on some Scheme source
code, what process do you send it to?

- If you're in a process buffer (foo, bar, or *scheme*),
  you send it to that process.
- If you're in some other buffer (e.g., a source file), you
  send it to the process attached to buffer `scheme-buffer'.
This process selection is performed by function `scheme-proc'.

Whenever \[run-scheme] fires up a new process, it resets `scheme-buffer'
to be the new process's buffer.  If you only run one process, this will
do the right thing.  If you run multiple processes, you might need to
set `scheme-buffer' to whichever process buffer you want to use.

More sophisticated approaches are, of course, possible.  If you find yourself
needing to switch back and forth between multiple processes frequently,
you may wish to consider ilisp.el, a larger, more sophisticated package
for running inferior Lisp and Scheme processes.  The approach taken here is
for a minimal, simple implementation.  Feel free to extend it.
(defvar scheme-buffer nil (#$ . 15175))
#@93 Return the current Scheme process, starting one if necessary.
See variable `scheme-buffer'.
(defalias 'scheme-proc #[nil "\203\301!\203\302!\204\303 \210\304 \206\305\306!\207" [scheme-buffer get-buffer comint-check-proc scheme-interactively-start-process scheme-get-process error "No current process.  See variable `scheme-buffer'"] 2 (#$ . 17229)])
#@62 Return the current Scheme process or nil if none is running.
(defalias 'scheme-get-process #[nil "\302\303=\203p\202\f	!\207" [major-mode scheme-buffer get-buffer-process inferior-scheme-mode] 3 (#$ . 17597)])
#@146 Start an inferior Scheme process.  Return the process started.
Since this command is run implicitly, always ask the user for the
command to run.
(defalias 'scheme-interactively-start-process #[(&optional _cmd) "\302 \303\216\304\305\306	\"!*\207" [#1=#:wconfig scheme-program-name current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] run-scheme read-string "Run Scheme: "] 4 (#$ . 17818)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301!\210\311\307!\207" [custom-declare-variable cmuscheme-load-hook nil "This hook is run when cmuscheme is loaded in.\nThis is a good place to put keybindings." :type hook :group cmuscheme run-hooks provide] 8)

Youez - 2016 - github.com/yon3zu
LinuXploit